perl -pi.bak -e 's/\r//' file(s)