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