my %seen;
$seen{$_}++ for ( split( "", $string ) );
print join( '', sort keys %seen ), $/;