http://www.perlmonks.org?node_id=218972


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: 
$log_line =~ /\[([^]]+)\] "[^"]+" [^"]+ "([^"]+)"/;
print "$1 $2<p>";

[download]
  p

In Section Seekers of Perl Wisdom