set fname "files/requests.txt" set fp [open $fname "r"] set data [read -nonewline $fp] set lines [split $data "\n"] close $fp while {[set i [lsearch -glob $lines $text]]>-1} { set lines [lreplace $lines $i $i] } set fp [open $fname "w"] puts $fp [join $lines ...