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