Help for this page
if ( <INPUT_FILE> =~ m/[^actgACTG]/ ) {
my $ok = 1; ... } print "good!\n" if $ok;