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