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