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

##</code><code>##

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