1.     regsub -all -nocase -- {\n} $data {} data
2.  
3.     regexp {<title>(.*?)</title>} $data "" title
4.     regexp {<div class=\"seo_block advert_width\">(.*?)</div>} $data "" price
5.  
6.    putserv "PRIVMSG $chan :$tutu(color1)$title\003"
7.  
8.    regsub -all -nocase -- {^.*?<tbody>} $data "" data
9.    regsub -all -nocase -- {</tbody>.*?$} $data "" data
10.    regsub -all -nocase -- {</tr><tr class=\"\">} $data {|} data
11.    regsub -all -nocase -- {<tr id="no-blue-result" .*?>.*?</tr>} $data {} data
12.    regsub -all -nocase -- {<tr id="no-green-result" .*?>.*?</tr>} $data {} data
13.    regsub -all -nocase -- {<img .*?>} $data {} data
14.    regsub -all -nocase -- {<div class=\"hidden-value departureIntTime\">.*?</div>} $data {} data
15.    regsub -all -nocase -- {<div class=\"hidden-value\">.*?</div>} $data {} data
16.    regsub -all -nocase -- {<div .*?>} $data {} data
17.    regsub -all -nocase -- {<a .*?>} $data {} data
18.    regsub -all -nocase -- {<p .*?>} $data {} data
19.    regexp {<span class=\"my_changes\" rel=\"tooltip\" title=\"(.*?)\. } $data "" izm
20.    set chstr "$tutu(color1)\[$lastbind [lindex [split $text] 0] [lindex [split $text] 1] дд.мм.гггг\]"
21.    regsub -all -nocase -- {<span class="my_changes" rel="tooltip" .*?>} $data {$tutu(color3)$izm. $chstr} data
22.    regsub -all -nocase -- {<p .*?>} $data {} data
23.    regsub -all -nocase -- {<span.*?>} $data {} data
24.  
25.    set data [string map {"</a>" "" "</div>" "" "</p>" "" "</td>" "" "</span>" "" "<b>" "" "</b>" "" "</tr>" "" "<td >" ""\
26.    "&nbsp;" " " "<font color=\"red\">" "\00304" "</font>" "\003" "<tr class=\"\">" "" "<td>" ""} $data]
27.  
28.     regsub -all -nocase -- {<td .*?>} $data {%} data
29.     regsub -all {\s+} $data " " data