#!/usr/bin/perl

use strict;
use warnings;

$\ = "\n";
my $str = <<STR;
Array
(
    [parameter] => testing
    [key] => Test1
    [Referrer] => HIDDEN
    [Time] => TRUE
)
i like bitches0
Array
(
    [parameter] => neva
    [key] => megakey
    [Referrer] => mozilla
    [Time] => 2007-09
)
i hate morons8
STR

while ($str =~ /Array\s*\(\s*\[parameter\]\s*=>\s*(.+)\n\s*\[key\]\s*=>\s*(.+)\n\s*\[Referrer\]\s*=>\s*(.+)\n\s*\[Time\]\s*=>\s*(.+)\n\s*\)\s*(.+?)(\d+)\n|\Z/gm) {
  my ($parameter, $key, $Referrer, $Time, $first_par, $second_par) = ($1, $2, $3, $4, $5, $6);
  last unless defined $key;
  print join ', ' => $parameter, $key, $Referrer, $Time, $first_par, $second_par;
}