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