perl -nle"$words{lc$1}=undef while m[(\w+)]g; END{ print for sort keys %words }" <textfile