Removing RTF Format from OBX

Does anyone have a TCL script that will remove RTF formating from the OBX5 fields of a message?  I have tried to use the -encoding command with out success.  I am on tcl8.4.   Below is the first OBX5 field data

{rtf1adeflang1025ansiansicpg1252uc1adeff0deff0stshfdbch0stshfloch0stshfhich0stshfbi0deflang1033deflangfe1033{fonttbl{f0fromanfcharset0fprq2{*panose 02020603050405020304}Times New Roman;}{f38fromanfcharset0fprq2{*panose 02040502050505030304}Palatino Linotype;}{f57fromanfcharset238fprq2 Times New Roman CE;}