s/(.)(\1+)/$1.(length($2)+1)/ge