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