@triplets = $seq =~ /[actg]{3}/g;