Perl: remplacer les chiffres consécutifs avec leur nombre

Question

Mes premières questions ici.

J'ai une chaîne de chiffres comme 55111233

Comme vous pouvez le voir 5 est consécutive deux fois, trois fois 1 2 fois et 3 fois.

Je veux qu'il soit remplacé dans 52132132

number1<count>number2<count>...numbern<count> générale

S'il vous plaît me guider.

Answer 1

 $digits = "55111233";
 $digits =~ s/((\d)\2*)/$2 . length($1)/ge;
 print $digits;

Answer 2

Vous pouvez faire:

$str =~s/(\d)(\1*)/$1.(length($2)+1)/eg;