Something

bind notc - * connect_proc
bind raw  - * r_connect_proc

proc r_conn_proc { from key text } {
        putlog ">> RAW: $text FROM: $from"
}

proc connect_proc { nick uhost handle text dest } {
        putlog "> CONNECT"
        putlog ">> Text: $text"
        set temp [split $text]
        putlog ">> Temp: $temp"
}