perl -plE"@h{/./g}++;$_=keys%h"