in reply to grepping arrays

You might also want to take a look at Regexp::Common::profanity.

In Section Seekers of Perl Wisdom