Code:

proc bf_callback {sock} {global bfNICK bfCOUforeach line [split [egghttp:data $sock] \n] {if {[string match "*<font  size=3 class="text3"><b>*" $line] && [string match "*$bfCOU*" $line]} {regsub -all -- {<[^>]*>} $line "" lineputserv "NOTICE $bfNICK :Boxoffice ($bfCOU) - $line"  }}unset bfCOUunset bfNICK}proc pub:office {nick uhst hand chan args} {global bfNICK bfCOUset cou [lindex $args 0]if {$cou == ""} {putserv "NOTICE $nick :Usage: .bf <usa|japan>"return 0}set url "http://www.mypage.us/boxoffice/"set sock [egghttp:geturl $url bf_callback]set bfNICK "$nick"set bfCOU "$cou"}