my $str = "TGC[CCC]CC[TTT]";

# Into 

my $rep  = "TG[CCCCCTTT]";