Though I'd probably go with Abigail's suggestion, you can abuse map for things like this one: my ($goodnames) = map "(?:$_)", join "|", map quotemeta, @names;

Makeshifts last the longest.