From Beefy Zebra, 10 Years ago, written in TCL/iTCL.
Embed
  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