>perl -i.bak -pe "s/\r(?=\n)//" f.txt

>debug f.txt
-rcx
CX 000F
:
-d100 lf
0AF7:0100  66 6F 6F 0D 0A 62 61 72-0D 0A 73 74 75 66 66      foo..bar..stuff
-q