You can also use regex octal numbers without the need for the OR pipe:

if ($regex($2-,/[\57\44\137\52\73\72\53\55\174\221\47\42\136\45\43\56]/Si)) { Notice $nick Please reword it! }

Or if you don't understand regex one bit, use a while loop:

var %c = $chr(47) $chr(36) $chr(95) $chr(42) $chr(59) $chr(58) $chr(43) $chr(45) $chr(124) $chr(39) $chr(34) $chr(94) $chr(37) $chr(35) $chr(46)
  var %x = $numtok(%c,32)
  while (%x) {
    if ($istok($2-,$gettok(%c,%x,32),32)) {
      Notice $nick Please reword it!
    }
    dec %x
  }
}