perl -lnE'@h{/./g}--;say~~keys%h'