perl -s -p -i -e '~s/\r//g' file.txt