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

##</code><code>##

HKT
TLD
SSR
TTT
TAA
BNN
RFG
HGH
GYY