Perl: заменить последовательные цифры на их счет

Question

Мои первые вопросы здесь.

У меня есть строка цифр, как 55111233

как вы можете видеть 5 последовательно дважды, трижды 1 2 разы и 3 дважды.

Я хочу, чтобы заменить в 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;