>perl -wMstrict -le "my @regexes = ( qr{ foo }xms, qr{ bar }xms, qr{ baz }xms, ); my $any_regex = qr{ @{[ join '|', @regexes ]} }xms; for my $file (@ARGV) { print $file, $file =~ $any_regex ? ' MATCHES' : ' no match'; } " xfooy snork bar xfooy MATCHES snork no match bar MATCHES