my @base = $str =~ /\G ( \[ [^][]+ \] | [^][] ) /xg;

##</code><code>##

[ grep { $base[ $i ] !~ $_ } qw( A T C G ) ];