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