while( $dna=<DNA> ) {
#chomp ($dna);


if ($dna =~ /[ACGT]+/) {
 #chomp ($dna);
print  "$&\n";
  }
}