#!/usr/bin/perl

use strict;
use warnings;

use Benchmark qw[cmpthese];

my $RUNS = shift || 5;

print $], "\n";

sub match {
    my $subj = shift;
    $subj =~ /^\s*SPECIFIC\sDECISIONS\s*$/; 
    $subj =~ /^\s*Important\s+\S+\s+Decisions\s*$/; 
    $subj =~ /^General\s+Decisions$/; 
    $subj =~ /^E-mail:\s*replies\@x.com$/;   
}

for (1 .. $RUNS) {
    cmpthese(-3, {
        english  => sub {match "This is a string"},
        japanese => sub {match "インドネシア休場"},
    });
}

__END__
5.008008
             Rate japanese  english
japanese 466031/s       --     -38%
english  751158/s      61%       --
             Rate japanese  english
japanese 505266/s       --     -36%
english  793800/s      57%       --
             Rate japanese  english
japanese 502207/s       --     -36%
english  778988/s      55%       --
             Rate japanese  english
japanese 498022/s       --     -35%
english  767420/s      54%       --
             Rate japanese  english
japanese 508507/s       --     -35%
english  780966/s      54%       --
5.010001
             Rate japanese  english
japanese 339534/s       --     -41%
english  577872/s      70%       --
             Rate japanese  english
japanese 416203/s       --     -28%
english  577831/s      39%       --
             Rate japanese  english
japanese 369283/s       --     -37%
english  581775/s      58%       --
             Rate japanese  english
japanese 418431/s       --     -19%
english  516905/s      24%       --
             Rate japanese  english
japanese 417789/s       --     -29%
english  587599/s      41%       --
5.012002
             Rate japanese  english
japanese 361165/s       --     -27%
english  496107/s      37%       --
             Rate japanese  english
japanese 372533/s       --     -33%
english  553731/s      49%       --
             Rate japanese  english
japanese 362232/s       --     -34%
english  549086/s      52%       --
             Rate japanese  english
japanese 361565/s       --     -33%
english  537911/s      49%       --
             Rate japanese  english
japanese 368166/s       --     -32%
english  539974/s      47%       --