$bases{ lc($1) }++ while $sub =~ /[GCATN])/g;