$ echo "foo bar baz qux foo foo bar baz qux" | perl -lne'@i{/\w+/g}=()}{print for keys%i' bar baz qux foo