Another great way to censor -- let TheDamian decide which words are bad! :)

Regexp::Common

use Regexp::Common qw(RE_profanity);
$message =~ s/$RE{profanity}/bleep/msg;
[download]