$log_line =~ s/"GET.*"h/ /;

##</code><code>##


foreach my $log_line(@log_data) {
  my ($date_string,$referrer) = ($log_line =~ /\[([^\]]+)\] "[^"]+"[^"]+"([^"]+)"/);
  print "$date_string,$referrer<P>\n";
}