Help for this page
$s = 'aaaabababbbbaaaccccbbbbbbaadddd';
$s = '4ababa4b3a3a4c6b2a4d';
$s = 'aaaabababbbbaaaccccbbbbbbaadddd'; $s =~ s"($_{2,})"length($1).$_"ge for ('a'..'d'); print $s;