Code:

bind pub m|m "!kick" my:pub:kickproc my:pub:kick {nick uh hand chan arg} {  set mask [lindex [split $arg] 0]  if {![string length [set rsn [join [lrange [split $arg] 1 end]]]]} {    set rsn "Mask kick"  }  set list [list]  foreach user [chanlist $chan] {    if {[string equals -nocase $user $nick]} { continue }    if {[string match -nocase $mask [getchanhost $user $chan]]} { lappend list $user }  }  putkick $chan [join $list {,}] $rsn}