use strict;

speed_test('\d{2}', sub { shift() =~ /\d{2}/ });
speed_test('\d\d', sub { shift() =~ /\d\d/ });

sub speed_test {
    my ($name, $func) = @_;
    my $start = time;

    my $index = 10000000;
    while ($index-- > 0) {
        &$func($index);
    }

    my $end = time - $start;

    print "Total time for $name: $end\n";
}