Mine

bind pub - * badwords:checkproc badwords:check {nick host hand chan text} {   global badword botnick                  if {[file exists $chan.db]} { set cword [split [read [set fwl [open $chan.db]]] \n][close $fwl]} { set cword [list] }      foreach line $cword {      if {[string match -nocase $text $line]} {puthelp "privmsg $chan :bla bla bla "}      } }