As there is often more than one way to do it, here is what I mentioned in the CB (for your reference):

12/28 at 18:19:49 <atcroft> keiusui: exit if ($input =~ m/b\W*a\W*d\W*
+w\W*o\W*r\W*d/i);, maybe? (note: untested)
[download]

You may also want to look at Regex::Common::profanity as another possibility.

HTH.