perl -e '$input = "ababaaaabbbababb";  $input =~ s/(\w)(\1*)/"".$1.($2 gt 0 ? length($2) + 1 : "")/ge ; print $input; '