Help for this page
#!/usr/local/bin/perl ... bar baz qux
perl -nle '/(\w*)/;$i{$1}++;print for keys %i;' words.txt