perl -nle "print for /(\w['\w-]*)/g" input.text | sort | uniq -c | sort -rn | tee word-list.text