in reply to unique words

c:\@Work\Perl\monks\rasy>perl -wMstrict -le "use List::MoreUtils qw(uniq); ;; my @uniques = uniq map { chomp; $_; } <>; print qq{(@uniques)}; " < words.txt (foo bar bax boff food wink wank fool zink zank)

words.txt:

foo bar foo bax boff foo foo food wink wank fool zink zank foo


Give a man a fish:  <%-(-(-(-<