perl -i -pe 's/\r// if /\r$/' <file>