unless $barcode =~ m/^[AGCTN]+$/;