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