[regexp -nocase -- {regex_kavramlari} $text]

 
 
bind pubm - * kufurban
proc kufurban {nick uhost hand chan text} {
 if {([regexp -nocase -- {(\byarak\b|\byavsak\b)} $text])} {
  putquick "MODE $chan +b *!*[string range $uhost [string first @ $uhost] e]"
  putkick $chan $nick "Kurallara Aykırı davranis" 
 }
}