my $goodnames = qr/@{[join '|', map "\Q$_", sort @names]}/;