for(<>){my%a;print grep{!$a{$_}++}split//,$_}