An alternative to a regular expression solution would be to use unpack.

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