in reply to Re: Check if a word is included in anotherin thread Check if a word is included in another
Unfortunately there is a typical "too clever for perl" bug 8-(
please replace:
# while ($a ) { while (length $a ) { [download]
otherwise qw/0 a/ will be a false positive!
If you want performance you may wanna try tr///d instead, but you will need to eval.
Cheers Rolf