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