Evaluated proc fix_utf8 {str} {set out $str; set matches [regexp -all -inline {\\u(.{4})} $out]; for {set i 0} {$i < [llength $matches]} {incr i 2} { set current [lindex $matches $i]; set new [eval ". $current"]; set out [regsub -all "\\$current" $out $new] };. $out }