perl -nle"my %seen; print sort grep !$seen{$_}++, /./g"