$genome=~s/(.)(?=(.))/++$count{$1.$2} and undef/eg;