sub subst_inplace
{
    my ($s1, $s2) = @_;

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