Select Code to Download

          Rate l3epost  l3epre l3ipost  l3ipre
l3epost 42.2/s      --     -3%     -8%    -10%
l3epre  43.4/s      3%      --     -5%     -8%
l3ipost 45.8/s      9%      6%      --     -3%
l3ipre  47.1/s     12%      9%      3%      --

use strict;
use Benchmark qw/ cmpthese /;
...
  l3ipost => q{ my %a; $a{$1}++ while $a =~ /(?=(...))/g },
  l3ipre  => q{ my %a; ++$a{$1} while $a =~ /(?=(...))/g },
});