$line =~ tr/\r/\n/;