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