tadman said:

   $fix =~ s!\r\n$!!s;
[download]

Notice the '$' mark in the line: it anchors the '\r\n' to the end of string. Meaning, replace \r\n only if it appears as the last thing in the string.