perl -i~ -pe 'tr/\r//d; $_ .="\n" if eof' file_name