regex

        proc checkvotingch {} {
                set token [::http::geturl "http://awebpage" -timeout 30000]
                set data [::http::data $token]
                if { [regexp -all -nocase -- {<tr>\n<td>\n<a href="sugg-view-(.+?).html">(.+?)<\/a>\n<\/td>\n<td>} $data -> webId vote] } {
                                $webId and $vote - available
                        }
               }
        }

        proc checkvotingch {n u h c t} {
                set token [::http::geturl "http://awebpage" -timeout 30000]
                set data [::http::data $token]
                set matches [regexp -all -nocase -- {<tr>\n<td>\n<a href="sugg-view-(.+?).html">(.+?)<\/a>\n<\/td>\n<td>} $data]
                        putquick "PRIVMSG $c :LAST VOTINGS:"
                        foreach {webId vote} $matches {
                                $webId $vote - not available
                        }
#               }
        }