in reply to testing number of occurrences in a word

perl -F// -lane 'my(%x);@x{@F}=();print keys %x==@F?"yes":"no"';

[download]
We're not surrounded, we're in a target-rich environment!

In Section Seekers of Perl Wisdom