Evaluated proc fix_utf8 str {set out ""; foreach line [split $Str }