perl -nlE"say 0+s/(.)(?!.*\1)//g"