Actually I have to acknowledge the fact that using regex to kick bad words isn't 100% foolproof. miniCruzer, you might wanna try this:

on @*:TEXT:*:#: { 
  var %cuss = 1, %swear = badword1 badword2 badword3 badword4
  while ($gettok(%swear,%cuss,32)) {
    if ($findtok($strip($1-),$v1,1,32)) { 
      kick $chan $nick Please don't use that kind of language here.
    }
    inc %cuss
  }
}

This shall match exactly the way words are and anywhere in a sentence.