perl -pi.orig -e 's/\r$//' <filenames>