++$count{$1},pos($genome)-- while $genome =~ /\G(..)/g

##</code><code>##

$genome =~ /./g;
$count{$1}++ while $genome =~ /(.\G.)/g

##</code><code>##

$count{$1}++ while $genome =~ /\G(?=(..))./g