Not what he asked for, but:

/set %badwords bad|words|here|separated|by|pipes

Code:
on @$*:text:$(/(?<=^|[ ,])( $+ %badwords $+ )[!?.]*(?= |$)/i):#:{
  <do whatever>
}