Select Code to Download

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("*")'