@triplets = unpack ("a3" x (length($line)/3), $line);


##</code><code>##

atccatccctttaat

##</code><code>##

atc cat ccc ttt aat

##</code><code>##

tcc atc cct tta 

##</code><code>##

cca tcc ctt taa