set lucah(agent) "Firefox 3.0"

package require http 2.3
proc lucah { url } {
	global lucah
	set token [http::config -useragent $lucah(agent)]
	set token [http::geturl $url]
 	set text [::http::data $token]
	puts stderr ""
	set pattern {<.*?>} 
	regsub -all $pattern $text "" result
	puts $result
}

set url "http://www.myfirsttime.com/storys/422/42202.html"
set output [lucah $url]
puts "output : $output"