s/\r\n\z//; # or $line =~ s/\r\n\z//;