I'm surprised that no one has mentioned Regexp::Common.
Here is the synopsis from the Regexp::Common::profanity docs...

use Regexp::Common qw /profanity/;
while (<>) {
    /$RE{profanity}/               and  print "Contains profanity\n";
}
[download]