Code:

package require httpbind pub - !news www:newsproc www:news {nick host handle chan text} {   set token [::http::geturl http://www.sensiblesoccer.de/index.php?lng=en -timeout 10000]   set status [::http::status $token]   if {$status!="ok"} {      switch -exact -- [string tolower $status] {         reset   { puthelp "PRIVMSG $chan :error: server connection was reset." }         timeout { puthelp "PRIVMSG $chan :error: server timeout (10 seconds)"   }         default { puthelp "PRIVMSG $chan :unknown server error occured"      }      }      ::http::cleanup $token; return   }   if {[::http::ncode $token]=="404"} {      ::http::cleanup $token      puthelp "PRIVMSG $chan :Sorry, error 404"; return   }   set data [::http::data $token]; ::http::cleanup $token   set all [regexp -all -inline -nocase -- {<td class="medium"><b class="marker">(.*?)</font></td>} $data]   set count 1   foreach {tmp t} $all {      if {$count=="4"} {return}       incr count   }set all2 [regexp -all -inline -nocase -- {<td class="medium"><b class="marker">(.*?)</} $data]set count 1   foreach {tmp t2} $all {      if {$count=="4"} {return}puthelp "PRIVMSG $chan :($count) $t $t2"}}