Code:

#!/usr/bin/tclshpackage require httppackage require htmlparseset http_handle [http::geturl "http://www.imdb.com/news/ni30809410/"]set http_data [http::data $http_handle]set img_link ""proc zonk { tag slash param tbtt} {        if {$tag == "img"} {                #add ' to the regex etc.                regsub -all -nocase {.*src=\"(.*?)\".*} $param {\1} img_link                puts $img_link        }}::htmlparse::parse -cmd zonk $http_data