Select Code to Download

sub map_split {
    my $ofs = 0;
    join "", map { $ofs += length; $_ => substr $s2, $ofs++, 1 } split
+ /\0/, $s1, -1;
};

                           Rate  split1 substr1 using_str_bit_ops_and_
+tr map_split
split1                   1.85/s      --    -94%                    -10
+0%     -100%
substr1                  32.9/s   1676%      --                     -9
+5%      -98%
using_str_bit_ops_and_tr  714/s  38390%   2067%                       
+--      -62%
map_split                1898/s 102263%   5663%                     16
+6%       --