grep { $string =~ /$_/ } @regex;


##</code><code>##

if ( grep { $string =~ /$_/ and return 1 } @regex ) {
    ...
}

##</code><code>##

sub is_match {
    grep { $string =~ /$_/ and return 1 } @regex;
}

if ( is_match() ) {
    print qq($string matched some regex);
}