Miscellany

match = /^([^\s]+)\s:(.+)$/.match($params)

if (match)

    $channel = match[1]
    $message = match[2]

    if ($channel == $me)
        match = /^([^\s]*)\s(.*)$/.match($message)

        $ctcp = match[1]
        $args = match[2]

        if ($ctcp)
            case $ctcp
                when 'PING'
                    debug "xxxxx"
                else
                    print "::#{$ctcp}::\n"
            end
        end
    end