Help for this page
@triplets = unpack ("a3" x (length($line)/3), $line);
atccatccctttaat
atc cat ccc ttt aat
tcc atc cct tta
cca tcc ctt taa