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