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