in reply to Perl as grep

Maybe this can help you 
perl -e '/regex/&&print'

[download]

In Section Seekers of Perl Wisdom