perl -i -pe's/\r//' file file ...  # do-to-unix