Select Code to Download

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

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