$key =~ s[(?<!\.)(\d+)(\.\d+)(?!\.)][
            pack( "N", length($1) ) . $1 . $2 ]ge;
        $key =~ s[(\d+)][
            pack( "N", length($1) ) . $1 ]ge;