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