grep foo bar.txt | perl -e 'map{ /.* \d+ \d+ ".+?" "(.*?)?"$/; print "_",$1,"_\n";} <>;'