#!/usr/bin/perl

use warnings;
use strict;

my $dna_input = shift;

my @dna = split( '', $dna_input );
my (@index) = grep { $dna[$_] !~ /[ATCG]/ } 0..$#dna;
print "Non-nucleotide at position $_\n" for @index;