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