Select Code to Download

           Rate rev_chop    regex unpack_C unpack_a    split
rev_chop 10.0/s       --      -1%      -3%     -44%     -50%
...
unpack_C 10.3/s       3%       2%       --     -43%     -49%
unpack_a 18.0/s      80%      77%      74%       --     -11%
split    20.2/s     102%      99%      95%      12%       --

use strict;
use warnings;
...

local our $buffer = "abcdef\x00ghik" x 10_000;
cmpthese(-2, \%tests);