use Benchmark;
$n1='h';
$n2='e';
$r=qr{(?:(?:\Q$n1\E).*(?:\Q$n2\E)|(?:\Q$n2\E).*(?:\Q$n1\E))};

@i=qw(hello how are you doing are you going to exit now? each time?);
timethese (10000, {
var=> sub {
 for $w (@i) {
  $ct1++ if ($w!~$r);
 }
},
and => sub {
 for $w (@i) {
  $ct2++ if ($w!~ m/\Q$n1\E/ or $w !~ m/\Q$n2\E/);
 }
}
});

print "$ct1, $ct2\n";