Select Code to Download

P:\test>perl -ln - text*
BEGIN{ @ARGV = map glob, @ARGV}
...
s[green red blue][]g;
$list{ $ARGV }=1 if m[\b(green|red|blue)\b];
^Z

P:\test>perl -0777 -ln - text*
BEGIN{ @ARGV = map glob, @ARGV}
...
s[green\s+red\s+blue][]sg;
$list{ $ARGV }=1 if m[\b(green|red|blue)\b];
^Z