Select Code to Download

#!/usr/local/bin/perl -w

...
sub testsubqr2 { foreach (@words) { $count++ if($_ =~ $qr);          }
+ }

sub testsubqro { foreach (@words) { $count++ if(/$qr/o);             }
+ }

/^$alpha$alnum+$/ : 20 wallclock secs (20.41 usr +  0.00 sys = 20.41 C
+PU) @  4.90/s (n=100)
/^$alpha$alnum+$/o:  9 wallclock secs ( 8.34 usr +  0.00 sys =  8.34 C
+PU) @ 11.99/s (n=100)
/$qr/             :  9 wallclock secs ( 9.59 usr +  0.00 sys =  9.59 C
+PU) @ 10.43/s (n=100)
$qr               : 10 wallclock secs ( 9.94 usr +  0.00 sys =  9.94 C
+PU) @ 10.06/s (n=100)
/$qr/o            :  9 wallclock secs ( 8.34 usr +  0.01 sys =  8.35 C
+PU) @ 11.98/s (n=100)