Evaluated proc quotes args {strip_html [join [pwget {<div>(.+?)</div>} http://www.imdb.com/search/text?realm=title&field=quotes&q=[urlencode $args]] \n]}