Select Code to Download

if ( <INPUT_FILE> =~ m/[^actgACTG]/ ) {

my $ok = 1;

...
}

print "good!\n" if $ok;