Select Code to Download

                Rate        split1       substr1         subst subst_i
+nplace
split1        2.93/s            --          -72%         -100%        
+ -100%
...
ok 2
ok 3
1..3

sub subst_inplace
{
...
    use bytes;
    $$s1 =~ s/(\0)/substr $s2, $+[0]-1, 1/eg;
}