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