$log_line =~ /\[([^]]+)\] "[^"]+" [^"]+ "([^"]+)"/;
print "$1 $2<p>";