my $goodnames= join ('|', map { quotemeta} (@names));  # do that once

# later...
s/stuff (?:$goodnames) stuff/o  # each time I need that

##</code><code>##

my $goodnames= join ('|', map { quotemeta} (@names));
$goodnames= qr/$goodnames/;