gistfile1.pl

use Test::More;
my @patterns = qw{a b c};
my $string = q{c};
my $pattern = qr{((?{ join "|", @patterns }))};

ok $string =~ $pattern, "matches";

done_testing();