$string = "atccatccctttaat";
($triplets0) = $line=~ /(...)/;