in reply to Re^8: list of unique strings, also eliminating matching substrings
in thread list of unique strings, also eliminating matching substrings

You're right. I edited rather than c&p :( and forgot my usual 1+. 

 next if 1+index $all, $x, $p;

[download]

Code above amended.

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
  • Comment on Re^9: list of unique strings, also eliminating matching substrings
  • Download Code

In Section Seekers of Perl Wisdom