Evaluated proc unescape_unicode str { eval {. $str} }