# code below is neccessary to prevent numerous html markups
   # from appearing in the output (ie, ", ᘧ, etc)
   # stolen (borrowed is a better term) from perplexa's urban
   # dictionary script..
   if {![string match *&* $text]} {return $text}
   if {[string match "*;*" $char]} {set char [string trim $char {;}] }
   set escapes {
    \xa0 ¡ \xa1 ¢ \xa2 £ \xa3 ¤ \xa4
  ¥ \xa5 ¦ \xa6 § \xa7 ¨ \xa8 © \xa9
  ª \xaa « \xab ¬ \xac ­ \xad ® \xae
  ¯ \xaf ° \xb0 ± \xb1 ² \xb2 ³ \xb3
  ´ \xb4 µ \xb5 ¶ \xb6 · \xb7 ¸ \xb8
  ¹ \xb9 º \xba » \xbb ¼ \xbc ½ \xbd
  ¾ \xbe ¿ \xbf À \xc0 Á \xc1 Â \xc2
  Ã \xc3 Ä \xc4 Å \xc5 Æ \xc6 Ç \xc7
  È \xc8 É \xc9 Ê \xca Ë \xcb Ì \xcc
  Í \xcd Î \xce Ï \xcf Ð \xd0 Ñ \xd1
  Ò \xd2 Ó \xd3 Ô \xd4 Õ \xd5 Ö \xd6
  × \xd7 Ø \xd8 Ù \xd9 Ú \xda Û \xdb
  Ü \xdc Ý \xdd Þ \xde ß \xdf à \xe0
  á \xe1 â \xe2 ã \xe3 ä \xe4 å \xe5
  æ \xe6 ç \xe7 è \xe8 é \xe9 ê \xea
  ë \xeb ì \xec í \xed î \xee ï \xef
  ð \xf0 ñ \xf1 ò \xf2 ó \xf3 ô \xf4
  õ \xf5 ö \xf6 ÷ \xf7 ø \xf8 ù \xf9
  ú \xfa û \xfb ü \xfc ý \xfd þ \xfe
  ÿ \xff ƒ \u192 Α \u391 Β \u392 Γ \u393 Δ \u394
  Ε \u395 Ζ \u396 Η \u397 Θ \u398 Ι \u399
  Κ \u39A Λ \u39B Μ \u39C Ν \u39D Ξ \u39E
  Ο \u39F Π \u3A0 Ρ \u3A1 Σ \u3A3 Τ \u3A4
  Υ \u3A5 Φ \u3A6 Χ \u3A7 Ψ \u3A8 Ω \u3A9
  α \u3B1 β \u3B2 γ \u3B3 δ \u3B4 ε \u3B5
  ζ \u3B6 η \u3B7 θ \u3B8 ι \u3B9 κ \u3BA
  λ \u3BB μ \u3BC ν \u3BD ξ \u3BE ο \u3BF
  π \u3C0 ρ \u3C1 ς \u3C2 σ \u3C3 τ \u3C4
  υ \u3C5 φ \u3C6 χ \u3C7 ψ \u3C8 ω \u3C9
  ϑ \u3D1 ϒ \u3D2 ϖ \u3D6 • \u2022
  … \u2026 ′ \u2032 ″ \u2033 ‾ \u203E
  ⁄ \u2044 ℘ \u2118 ℑ \u2111 ℜ \u211C
  ™ \u2122 ℵ \u2135 ← \u2190 ↑ \u2191
  → \u2192 ↓ \u2193 ↔ \u2194 ↵ \u21B5
  ⇐ \u21D0 ⇑ \u21D1 ⇒ \u21D2 ⇓ \u21D3 ⇔ \u21D4
  ∀ \u2200 ∂ \u2202 ∃ \u2203 ∅ \u2205
  ∇ \u2207 ∈ \u2208 ∉ \u2209 ∋ \u220B ∏ \u220F
  ∑ \u2211 − \u2212 ∗ \u2217 √ \u221A
  ∝ \u221D ∞ \u221E ∠ \u2220 ∧ \u2227 ∨ \u2228
  ∩ \u2229 ∪ \u222A ∫ \u222B ∴ \u2234 ∼ \u223C
  ≅ \u2245 ≈ \u2248 ≠ \u2260 ≡ \u2261 ≤ \u2264
  ≥ \u2265 ⊂ \u2282 ⊃ \u2283 ⊄ \u2284 ⊆ \u2286
  ⊇ \u2287 ⊕ \u2295 ⊗ \u2297 ⊥ \u22A5
  ⋅ \u22C5 ⌈ \u2308 ⌉ \u2309 ⌊ \u230A
  ⌋ \u230B ⟨ \u2329 ⟩ \u232A ◊ \u25CA
  ♠ \u2660 ♣ \u2663 ♥ \u2665 ♦ \u2666
  " \x22 & \x26 < \x3C > \x3E O&Elig; \u152 œ \u153
  Š \u160 š \u161 Ÿ \u178 ˆ \u2C6
  ˜ \u2DC   \u2002   \u2003   \u2009
  ‌ \u200C ‍ \u200D ‎ \u200E ‏ \u200F – \u2013
  — \u2014 ‘ \u2018 ’ \u2019 ‚ \u201A
  “ \u201C ” \u201D „ \u201E † \u2020
  ‡ \u2021 ‰ \u2030 ‹ \u2039 › \u203A
  € \u20AC ' \u0027 ‎ "" ‏ "" ‬ "" - ""
  - ""
   };

 set arg [encoding convertto utf-8 $arg]
 
proc pxi2h:convert {text} { 
  global pxi2h 
  regsub -all {\]} $text {p!c1} text 
  regsub -all {\[} $text {p!c2} text 
  regsub -all {\}} $text {p!c3} text 
  regsub -all {\{} $text {p!c4} text 
  regsub -all {\$} $text {p!c5} text 
  regsub -all {\"} $text {p!c6} text 
  regsub -all {\;} $text {p!c7} text 
  regsub -all {\\} $text {p!c8} text 
  regsub -all {\/} $text {p!c9} text 
  regsub -all {\&} $text {\&} text 
  regsub -all {\<} $text {\&lt;} text 
  regsub -all {\>} $text {\&gt;} text 
  regsub -all {\"} $text {\&quot;} text 
  regsub -all {  } $text {\&nbsp; } text 
  if {$pxi2h(mstrip) == 1} { 
    set text [pxi2h:clean $text] 
  } 
  return $text 
} 
proc pxi2h:unconvert {text} { 
  regsub -all {p!c1} $text "\]" text 
  regsub -all {p!c2} $text "\[" text 
  regsub -all {p!c3} $text "\}" text 
  regsub -all {p!c4} $text "\{" text 
  regsub -all {p!c5} $text "\$" text 
  regsub -all {p!c6} $text "\"" text 
  regsub -all {p!c7} $text "\;" text 
  regsub -all {p!c8} $text "\\" text 
  regsub -all {p!c9} $text "\/" text 
  return $text 
}

 regsub -all {ğ} $tgcurrentanswer "g" tgcurrentanswer
 regsub -all {Ğ} $tgcurrentanswer "G" tgcurrentanswer
 regsub -all {ü} $tgcurrentanswer "u" tgcurrentanswer
 regsub -all {Ü} $tgcurrentanswer "U" tgcurrentanswer
 regsub -all {ş} $tgcurrentanswer "s" tgcurrentanswer
 regsub -all {Ş} $tgcurrentanswer "S" tgcurrentanswer
 regsub -all {ı} $tgcurrentanswer "i" tgcurrentanswer
 regsub -all {İ} $tgcurrentanswer "I" tgcurrentanswer
 regsub -all {ö} $tgcurrentanswer "o" tgcurrentanswer
 regsub -all {Ö} $tgcurrentanswer "O" tgcurrentanswer
 regsub -all {ç} $tgcurrentanswer "c" tgcurrentanswer
 regsub -all {Ç} $tgcurrentanswer "C" tgcurrentanswer