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