>perl -e "print \"foo\r\nbar\r\nstuff\";" > f.txt

>debug f.txt
-rcx
CX 0011
:
-d100 l11
0AF7:0100  66 6F 6F 0D 0D 0A 62 61-72 0D 0D 0A 73 74 75 66   foo...bar...stuf
0AF7:0110  66                                                f
-q

##</code><code>##

>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