my ($goodnames) = map "(?:$_)", join "|", map quotemeta, @names;