perl -i.bak -pne 's/^M//g' file