Code:

bind PUB - !xml pXMLReadproc pXMLRead {nick uhost hand chan text} {    set fp [open whatever.xml r]    set data [split [read -nonewline $fp] \n]    close $fp    foreach line $data {        if {[regexp -- {<title>([^<]+)</title>} $line -> title]} {continue}        if {[regexp -- {<pubDate>([^<]+)</pubDate>} $line -> pubDate]} {continue}    }    if {[info exists title]} {putserv "PRIVMSG $chan :last title = $title"}    if {[info exists pubDate]} {putserv "PRIVMSG $chan :last pubDate = $pubDate"}    return 0}