sub testsubqr2{
  my $count = 0;
  foreach(@words){
    $count += testsubbqr2($_);
  }
}

sub testsubbqr2 {
  my $word = $_[0];
  return unless $word =~ $qr[0];
  return unless $word =~ $qr[1];
  return 1;
}

Benchmark: timing 100000 iterations of With /o, qr, qr2...
   With /o:  3 wallclock secs ( 2.63 usr +  0.00 sys =  2.63 CPU) @ 38022.81/s (n=100000)
        qr:  4 wallclock secs ( 3.76 usr +  0.00 sys =  3.76 CPU) @ 26595.74/s (n=100000)
       qr2:  3 wallclock secs ( 2.98 usr +  0.00 sys =  2.98 CPU) @ 33557.05/s (n=100000)