1 while $toTranslate =~ s/((?:3{4})+)/"[" . length($1) . "]"/ge;
[download]

I don't understand the point of the 1 while in the expression above. The substitution seems to work just fine without it.

>perl -wMstrict -le
"for my $string ('3' x 33332, @ARGV) {
   $string =~ s{ ( (?:3{4})+ ) }{ '[' . length($1) . ']' }xmsge;
   print $string;
   }
"
3333333333223333322
3333333333333333333333333333333333333333333333333333333333333333333333
+333333333333333333333333333333333333333333333332333333333223333333332
+33333333333333333333333333333333323333333322333333332333333333
[33332]
[8]3322[4]322
[116]32[8]322[8]32[32]32[8]22[8]2[8]3
[download]