@regex = ( 'foo' 'b[a-z]' );
$string = 'foo';

my $matched = 0;
foreach $test ( @regex ) {
    $matched++ if ($string =~ m/$test/);
}

if ($matched) {
...

##</code><code>##

if ( grep($regex, @strings) {
...

##</code><code>##

if ( map(string =~ /$_/, @regex) ) {
...