#!/usr/str/perl
use strict;
use warnings;

my $toTranslate =
"333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333233333333322333333333233333333333333333333333333333333323333333322333333332333333333";

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

print $toTranslate,"\n";