Select Code to Download

my %tests = (
   split    => q{ my @a = split //, $buf;             },
...
   rev_chop => q{ my @a = reverse map chop($buf), 1..length($buf); },
   chop => q{ my @a; $a[ $_ ] = chop $buffer for length($buffer) .. 0;
+ },
);

            Rate rev_chop unpack_C    split    regex unpack_a     chop
rev_chop  17.6/s       --      -6%     -13%     -20%     -30%    -100%
...
regex     22.0/s      25%      17%       9%       --     -13%    -100%
unpack_a  25.1/s      43%      34%      24%      14%       --    -100%
chop     68478/s  388556%  365714%  339175%  311691%  272542%       --