むしろ
$dna = <STDIN>;
$dna =uc $dna;
$dna =~s/[^ACGT]//g;
length $dna or exit;
では？