my $dna = shift; # Get the first command line argument.
if ($dna =~ /[^ACTG]/g) {
    die "Non-nucleotide at " . pos($dna);
}