CGI Remove a range of ANSI characters

my $newstring="^&()E~,<  >./?d&*))&*+_)(*&^!12345%$#@";
my $output="";

foreach $c (split(//,$newstring)){
        $ac=unpack("C",$c);
        if($ac>65 and $ac<122){
                $output=$output.$c;
        }
}

print "$output = $output";