Select Code to Download

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

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

sub is_match {
    grep { $string =~ /$_/ and return 1 } @regex;
...
if ( is_match() ) {
    print qq($string matched some regex);
}