my $seq = "atgcatccctttaat";
my @triplets = $seq =~ /(...)/g;
print "$seq: ", join(",", @triplets), "\n";