Select Code to Download

my $l = length($string);
$string = reverse unpack("A$l",reverse unpack("A$l",$string));

              Rate  two-s///     split m-capture    unpack s-with-\G
two-s///  239349/s        --       -6%      -38%      -40%      -41%
split     255782/s        7%        --      -33%      -36%      -37%
m-capture 384362/s       61%       50%        --       -4%       -5%
unpack    399865/s       67%       56%        4%        --       -1%