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