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