my @sequence_length =
    map { length }
    join('', @enc{@letter}) =~ /
        \G(
            \p{Letter}+
            | \p{DecimalNumber}+ 
            | [\P{Letter}\P{DecimalNumber}]
        )
    /gx;