perl -lpE'$_=s/(.)(?!.*\1)//g'