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