+ set b $URL($url,buf)
+ set e {<title>[^>]*>}
+ catch {unset $URL($url,meta)}
+ while {[regexp -nocase -indices $e $b i]} {
+ set title [string range $b [lindex $i 0] [lindex $i 1]]
+ lappend URL($url,title) $title
+ set b [string range $b [lindex $i 1] end]
+ }