$line =~ tr/\x0d//d;
$line =~ tr/\x0a//d;