#!/usr/bin/perl -w
use Benchmark qw/ cmpthese /;
my $count = shift;
our $a = '%%';
our $b = ' ' x 10000;
cmpthese($count, {
    first_re => q{ $match = "$a$b" =~ /^%%/ },
    last_re  => q{ $match = "$b$a" =~ /^%%/ },
    miss_re  => q{ $match = "$b"   =~ /^%%/ },
    first_index => q{ $match = index("$a$b", "%%") == 0},
    last_index  => q{ $match = index("$b$a", "%%") == 0},
    miss_index  => q{ $match = index("$b"  , "%%") == 0},
    first_substr => q{ $match = substr("$a$b", 0, 2) eq '%%' },
    last_substr  => q{ $match = substr("$b$a", 0, 2) eq '%%' },
    miss_substr  => q{ $match = substr("$b"  , 0, 2) eq '%%' },
})