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