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