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

##</code><code>##

<a code=TXT> abc FOO </a> <text code=TXT> efg FOO </text> <input s=TXT> hig FOO</input>