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

# Into 

my $rep  = "TG[CCCCCTTT]";


##</code><code>##

$str =~ s/\]([ATCG]+)\[//;