Help for this page
s/(.)\1{$n}/$1 x $m/eg;
$ perl -Mstrict -Mwarnings -E ' sub mod_char_count { ... ' p8er9l mmmooonnnkkksss