enter the dna sequence and and remove all non atgc characters in it code

**-------------------------------**
print”enter the dna \n”;
$i=<STDIN>;
chomp($i);
$i=~tr/atgc/cd;
print”$i \n”;
**--------------------------------**