use Regexp::List qw( );
my $exclude_re = Regexp::List->new()->list2re(@names);