Select Code to Download

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

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