Select Code to Download

my $regex=qr{(?:(?:\Q$nameOne\E).*(?:\Q$nameTwo\E)|(?:\Q$nameTwo\E).*(
+?:\Q$nameOne\E))};
if ($text !~ $regex) {
   print "$name\n";
   ++ct;
}

use Benchmark;
$n1='h';
...
});

print "$ct1, $ct2\n";