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