$line =~ tr/\x80-\xff//d; 

$line =~ tr/\x00-\x1f//d;

$line =~ s/[\r\n\t]//d;