set fp [open "test.tcl" r]
set new_file [open "final.tcl" w+]
while {![eof $fp]} {
     get $fp line
     if $line {$'{'} {
     puts $new_file 'n'
     }
}