$str =~ s/(?<=\s)TXT/FOO/g ; [download]
$str =~ s/ TXT/ FOO/g ; [download]
In reply to Re: Construct a REGEX by selected substitution by jeanluca in thread Construct a REGEX by selected substitution by pysome