my $goodnames = do {local $" = "|"; qr {@{[map {"\Q$_"} @names]}}};