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