my $dna_input = $ARGV[0];
print "Non-nucleotide '$1' at posn %d\n", $-[0] while $dna_input =~ m[([^acgt])]g;