Select Code to Download

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

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

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