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