Select Code to Download

use strict;
use warnings;
...

1 while $toTranslate =~ s{((?:3{4})+)}{ qq{[@{ [ length $1 ] }]} }eg;
print qq{$toTranslate\n@{ [ q{=} x 50 ] }\n};

Sequences of 3s:-
[10]
...
--------------------------------------------------
[116]37[8]377[8]37[32]37[8]77[8]7[8]3
==================================================