perl -pi.orig -e 's/\cM//g' `find . -type f`