$ perl -MO=Concise,-exec \ | perl -lnaF -e '$_=$F[2]; s/\W.*//; $h{$_}=0; END{ print join " "=>keys %h}'