perl -e '$/=""; map {$c=0; $file=$_; open FH,$file; $_=<FH>; 1 while m/(?:green red blue)|(?:(green|red|blue)(?{$c++}))/g;  close FH; print "$file matchs!\n" if $c } glob("*")'