$pwd = join '', sort grep { ! $uniq{$_}++ } split //, $string;