set data [encoding convertto cp1251 [encoding convertfrom utf-8 $data]]