perl -pe "s/\r(?=\n)//" winfile.txt > unixfile.txt

##</code><code>##

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

##</code><code>##

perl -e "print \"foo\r\nbar\r\nstuff\";" > f.txt
perl -pe "s/(\s)/'['.ord($1).']'/esg" f.txt
REM output:    foo[13][10]bar[13][10]stuff
perl -i.bak -pe "s/\r(?=\n)//" f.txt
perl -pe "s/(\s)/'['.ord($1).']'/esg" f.txt
REM output:    foo[10]bar[10]stuff