perl -pi -e 'tr/\cM//d;' perl -pi -e 'tr/\r//d';