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