Evaluated proc youtube_title args {set id [lindex [regexp -inline {v=(.+?)($| |\&)} $args] 1]; if {[string length $id] > 6} {. "\x02Title:\x02 [last [regexp -inline {'text'>(.+?)</title>} [unescape_html_entities [wget http://gdata.youtube.com/feeds/api/videos/$id]]]]"}}