this is what we use

perl -p -i -e 's/^M$//' *

or

perl -p -i -e 's/\r//' *

where * for all files i dont know how to use it recursively