#!/usr/bin/env perl
use strict;
use warnings;
use Data::Printer;

my $prot="HKTTLDSSRTTTTAABNNRFGHGHGYYH";
my @triplets = $prot =~ /.{1,3}/g;
p @triplets;