#hi there :) let's say:

# some_url contains:
#
# aaa <aaa
# bbb <bbb
# aba <ddd

bind pub - !test ptest

proc ptest {nick host handle chan arg} {

 set url "http://some_url"
 set conn [::http::geturl $url]
 set data [::http::data $conn]

 foreach line [split $data \n] {
  if {[string first "a" $line] != -1} {
   set line [join $line]
   foreach line [split $line "<"] {
    if {[string first "<" $line] != -1} {
     puthelp "privmsg $chan :$line"
    }
   }
  }
 }
}

#it just wont start here this way, anyone can help me?