perl -p -i.bak -e "s/\r//g" filename