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


in reply to Grep n awk

This answer is a bit rushed as I'm in a hurry to go home for a beer, but you should get the idea.

# slurp the file....
my @lines = <$fh>;
# filter the lines....
my @filter1 = grep( /mixed/, @lines);
my @filter2 = grep( !/-- --/,@filter1);

[download]

A Monk aims to give answers to those who have none, and to learn from those who know more.

In Section Seekers of Perl Wisdom