Select Code to Download

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

>perl -wMstrict -le
"for my $string ('3' x 33332, @ARGV) {
...
[33332]
[8]3322[4]322
[116]32[8]322[8]32[32]32[8]22[8]2[8]3