thanks, that's just what I was looking for.

print "$_\n" for sort keys %{{map {$_,1} grep /^[a-z]+$/, (split /\s/,
+ join(" ",<>))}};
[download]