Miscellany

if {[regexp -nocase -- {<h4>Genre : (.*?)</h4>} data -> tmp_genre]} {	set tmp_genre [regexp -inline -nocase -all -- {<a href=".*?">(.*?)</a>} $tmp_genre]	foreach {tmp_junk tmp_gname} $tmp_genre {		lappend genre $tmp_gname	}	set genre [join $genre " / "]}