Evaluated proc fix_utf8 str {set out ""; foreach line [split $str \n] { append out [eval ". {$line}"]\n };. join $out \n }