perl -ne ... | sort | uniq

##</code><code>##

perl -ne ... | sort -u

##</code><code>##

perl -ne 's/\W+/ /g; for $w (split){$u{$w}++} END{print join $/,sort keys %u,""}'