perl -lnE'@h{/./g}--;say~~keys%h'

##</code><code>##

perl -lnE'say~~s/(.)(?!.*\1)//g'