Here is one easy way of many:

   $prot = "HKTTLDSSRTTTTAABNNRFGHGHGYYH";
   say for/.{3}/g;
[download]

Says:

HKT
TLD
SSR
TTT
TAA
BNN
RFG
HGH
GYY
[download]