Code:
foreach line $lines {
if { ([lindex [split $line] 0] == "200") || ([lindex [split $line] 0] == "500") || ([lindex [split $line] 0] == "200-") } {
putquick "PRIVMSG $chan :[lrange [split $line] 1 end]"
} else {
putquick "PRIVMSG $chan :$line"
}
}