Select Code to Download

#!/usr/str/perl
use strict;
...
1 while $toTranslate =~ s/((?:3{4})+)/"[" . length($1) . "]"/ge;

print $toTranslate,"\n";