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


in reply to Print while filtering ouput...

Easy peasy, just print the line unless $lines =~ /\//; :)

And you didn't even know bears could type.