regex - Perl: 連続した数字をそのカウントに置き換えます

Question

ここで私の最初の質問。

次のような数字の文字列があります55111233

ご覧のとおり、5 は 2 回、1 は 3 回、2 は 1 回、3 は 2 回連続しています。

に置き換えてほしい52132132

一般にnumber1<count>number2<count>...numbern<count>

私を案内してください。

Answer 1

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

Answer 2

できるよ：

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