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