http://qs321.pair.com?node_id=206630


in reply to Re: Re: Re: Front Paging Profanity
in thread Front Paging Profanity

Sigh. There's nothing wrong with the module. Try using case insensitivity:
/$RE{profanity}/i and print " contains profanity";
And you'll need $RE{profanity}{contextual} to catch that seventh word, since there is nothing profane about members of the avian family Paridae.

Oh, and the test will work better if you don't try to import the non-existent profanity subroutine.