sub map_split_join {

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