perl -e 's/\r//g' Filename