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

;-)