Hi Monks,
I wanna to replace these "TXT" ONLY locate out of TAGS to "FOO", How to compose the regex??

my $str = '<a code=TXT> abc TXT </a> <text code=TXT> efg TXT </text> <
+input s=TXT> hig TXT</input>';
[download]

After substitution,I want to get $str is :

<a code=TXT> abc FOO </a> <text code=TXT> efg FOO </text> <input s=TXT
+> hig FOO</input>
[download]

Thanks in advance.
update:NO while loop