my $line ='atgcatccctttaat';
my @trips = unpack('a3X2' x (length($line)-2), $line);
print join "\n", @trips;

##</code><code>##

atg
tgc
gca
cat
atc
tcc
ccc
cct
ctt
ttt
tta
taa
aat