if { [string match "* *" $what] } {
            regsub -all " " $what "." what
        }
        set what [string toupper $what 0 0]
        foreach req [split "$what" "."] {
            set req [string toupper $req 0 0]
            lappend what2 $req
        }
        set what [join $what2 .]
        putserv "PRIVMSG $chan :$what"