set tellchan "#example"bind raw - NOTICE tellusproc tellus {frm key text} {   if {[string match *!*@* $frm] || ![string match -nocase "*client connecting*" $text]} {      return   }   regexp {:\ ([^ ]+)\s\(([^@]+)@([^\)])+\)\s\[([^\]]+)} $text - unick ident host ip   putserv "PRIVMSG $::tellchan :$unick connecting network from $host"}