$line =~ s/\r//g;