Yuk - you should never use CTRL codes directly, as they can cause problems.
Alternaivly, you could use
regsub -all -- {03[0-9]{0,2}(,[0-9]{0,2})?|17|37|02|26} $n "" n
This is the same, but with CTRL codes stripped.
Baerchen:
What is the purpose of ([0-9A-F][0-9A-F])
I am guessing this is ansi encoded tags?