in reply to Re: Matching an array of regexes (grep in reverse)
in thread Matching an array of regexes (grep in reverse)

Or Regexp::Assemble

use Regexp::Assemble;

my $re = Regexp::Assemble->new();

$re->add($_) for @regex;

if ( $str =~ /$re/ ) { ... }

[download]

In Section Seekers of Perl Wisdom