Select Code to Download

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

...

my $rep  = "TG[CCCCCTTT]";

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