foo
foo
bar
foo
bar
baz
...

##</code><code>##

perl -nle '/(\w*)/; print if (not exists $i{$1}); $i{$1}++;' words.txt

##</code><code>##

perl -nle '/(\w*)/;$i{$1}++; END{print for keys %i;} ' words.txt