Evaluated proc fix_utf8 {str} {set out $str; foreach char [regexp -all -inline {\u(\d+)} $out] { set out [regsub -all "\\u } }