perl -i.bak -pe 's/\r//g' filename