>perl -E '$x=q[Category("notestrecord")];@a=split "",$x;say join "" => sort grep { !$seen{$_}++ } @a'
"()Cacdegnorsty
>