set i 1

while {![eof $sock]} { 
gets $sock line
if {[regexp -all {<td style="background-color: #.*?">(.*?)</td>} $line]} {
regsub -all {(<.+?>)} $line "" line
set stnick($i) $line
incr i
	}
}
