Select Code to Download

use strict;
use autodie;
...
my $dna = pop @tmp;
$dna =~ s/[^acgt]//gi; # delete all but a, c, g, and t
print $dna;