use Regexp::Assemble;

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

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

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