perl -wple 's/^M//' yourfile