perl -i -p -e "s/\r//" mil-dic.txt