my $goodnames= join ('|', map { quotemeta} (@names));
$goodnames= qr/$goodnames/;