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