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


in reply to Perl one liner help

perl -MModern::Perl -ne 'my @l=split /\t/;say $+{ID} if $l[2] =~ /3|5\ +W-UTR/ and $l[8] =~ /ID=(?<ID>.*);/' < input.txt