while ($seq =~ /\G(...)/sg) { $counts{uc($1)}++; }