$ perl -E 'say for unpack q{(A3)*}, q{HKTTLDSSRTTTTAABNNRFGHGHGYYH};'
HKT
TLD
SSR
TTT
TAA
BNN
RFG
HGH
GYY
H
$