set clnt "" for {} {1<2} {} { set ln [gets -] if {[string equal $ln "."]} break set sh "$sh$ln
" if {[string first clnt $ln] >= 0} {set clnt [string range $ln 5 666]} } puts "address" puts "" puts "$clnt" puts ""