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

    my $out = $s1;
    while ( $s1 =~ m/\000/g ) {
        my $pos = pos;
        substr( $out, $pos, 1 ) = substr( $s2, $pos, 1 );
    }

    return $out;
}