perl -i.bak -ne '(tr/\r//d)' test.dat