my $translated;
while ( $toTranslate =~ /(.*?)((?:3{4})*)/g ) {
    $translated .= $1;
    $translated .= '[' . length($2) . ']' if $2;
}