++$counts{uc($_)} for $a =~ /[TCAG]{3}/sg;