Select Code to Download

#!/usr/bin/env perl
use strict;
...
my $prot="HKTTLDSSRTTTTAABNNRFGHGHGYYH";
my @triplets = $prot =~ /.{1,3}/g;
p @triplets;

[
    [0] "HKT",
...
    [8] "GYY",
    [9] "H"
]