Evaluated proc json2dict jsonshit {string range [string trim [regsub -- {^(\uFEFF)} [string map {\t {} \n {} \r {} , { } : { } \[ \{ \] \}} $jsonshit ] {} ] ] 1 end-1 }