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 " / "]
}