in reply to pulling by regex
Not sure what's wrong with the last $log_line, it works for me.   Another way to approach it is to remove the parts you do want:
  p$log_line =~ /\[([^]]+)\] "[^"]+" [^"]+ "([^"]+)"/; print "$1 $2<p>";
|
---|
In Section
Seekers of Perl Wisdom