Select Code to Download

#!/usr/bin/perl -w
use Benchmark qw/ cmpthese /;
my $count = shift;
...
    last_substr  => q{ $match = substr("$b$a", 0, 2) eq '%%' },
    miss_substr  => q{ $match = substr("$b"  , 0, 2) eq '%%' },
})