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