Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
use Benchmark qw(cmpthese);

my $pre = 250;
my $post = 250;

my $baz_match = ('b' x $pre) . 'baz' . ('b' x $post);
my $bar_match = ('b' x $pre) . 'bar' . ('b' x $post);
my $no_match = ('b' x $pre) . 'bza' . ('b' x $post);

my $i;

cmpthese( 750000,
         {
...
             using_alt_nomatch => sub { $i += ($no_match =~ /bar|baz/)
+ ? 1 : 0 },
         });
print $i, $/;

            (warning: too few iterations for a reliable count)
            (warning: too few iterations for a reliable count)
...
using_or_nomatch   8333333/s             6533%           3033%        
+       --           -33%
using_or_match    12500000/s             9850%           4600%        
+      50%             --
500000