perl -i~ -pe 'tr/\r//d; print' filename