sub interleave {

        my $str    = shift;
        my $filler = 64; # Char number.

        my $hi_bytes = pack 'v*', unpack 'C*', $str;
        my $lo_bytes = pack 'n*', ($filler) x length $str;

        return $hi_bytes | $lo_bytes;
    }