Help for this page
my $goodnames= join ('|', map { quotemeta} (@names)); # do that once # later... s/stuff (?:$goodnames) stuff/o # each time I need that
my $goodnames= join ('|', map { quotemeta} (@names)); $goodnames= qr/$goodnames/;