Rate        JavaFan JavaFan_noplus        ikegami
JavaFan        104/s             --            -5%           -16%
JavaFan_noplus 109/s             5%             --           -12%
ikegami        123/s            19%            13%             --

                Rate        JavaFan JavaFan_noplus        ikegami
JavaFan        109/s             --            -2%           -11%
JavaFan_noplus 110/s             2%             --           -10%
ikegami        122/s            13%            11%             --

                Rate        JavaFan JavaFan_noplus        ikegami
JavaFan        103/s             --            -5%           -21%
JavaFan_noplus 109/s             5%             --           -17%
ikegami        131/s            27%            20%             --

##</code><code>##

use strict;
use warnings;

use Benchmark qw( cmpthese );

my $ad = <<'__EOI__';
------ Yahoo
meow meow meow meow meow meow meow meow
woof woof woof woof
jabberwocky
foo bar! foo!!
__EOI__

my $email = join '',
            map chr(rand(26)+ord('a')),
            1..2000;


our $file = "$email\n$ad\cB" x 1000;


cmpthese(-3, {
   ikegami        => 'use strict; use warnings; my $x = our $file; $x =~ s/------ Yahoo.*?(?=\cB)//sg;',
   JavaFan        => 'use strict; use warnings; my $x = our $file; $x =~ s/------ Yahoo[^\cB]*+//g;',
   JavaFan_noplus => 'use strict; use warnings; my $x = our $file; $x =~ s/------ Yahoo[^\cB]*//g;',
});