regsub -all -nocase -- {\n} $data {} data

    regexp {<title>(.*?)</title>} $data "" title
    regexp {<div class=\"seo_block advert_width\">(.*?)</div>} $data "" price

    putserv "PRIVMSG $chan :$tutu(color1)$title\003"

    regsub -all -nocase -- {^.*?<tbody>} $data "" data
    regsub -all -nocase -- {</tbody>.*?$} $data "" data
    regsub -all -nocase -- {</tr><tr class=\"\">} $data {|} data
    regsub -all -nocase -- {<tr id="no-blue-result" .*?>.*?</tr>} $data {} data
    regsub -all -nocase -- {<tr id="no-green-result" .*?>.*?</tr>} $data {} data
    regsub -all -nocase -- {<img .*?>} $data {} data
    regsub -all -nocase -- {<div class=\"hidden-value departureIntTime\">.*?</div>} $data {} data
    regsub -all -nocase -- {<div class=\"hidden-value\">.*?</div>} $data {} data
    regsub -all -nocase -- {<div .*?>} $data {} data
    regsub -all -nocase -- {<a .*?>} $data {} data
    regsub -all -nocase -- {<p .*?>} $data {} data
    regexp {<span class=\"my_changes\" rel=\"tooltip\" title=\"(.*?)\. } $data "" izm
    set chstr "$tutu(color1)\[$lastbind [lindex [split $text] 0] [lindex [split $text] 1] дд.мм.гггг\]"
    regsub -all -nocase -- {<span class="my_changes" rel="tooltip" .*?>} $data {$tutu(color3)$izm. $chstr} data
    regsub -all -nocase -- {<p .*?>} $data {} data
    regsub -all -nocase -- {<span.*?>} $data {} data

    set data [string map {"</a>" "" "</div>" "" "</p>" "" "</td>" "" "</span>" "" "<b>" "" "</b>" "" "</tr>" "" "<td >" ""\
    "&nbsp;" " " "<font color=\"red\">" "\00304" "</font>" "\003" "<tr class=\"\">" "" "<td>" ""} $data]

    regsub -all -nocase -- {<td .*?>} $data {%} data
    regsub -all {\s+} $data " " data