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