$str =~ s/(?<=\s)TXT/FOO/g ;

##</code><code>##

$str =~ s/ TXT/ FOO/g ;