$inputstring=qq{startstring (substring) endstring}; $t=quotemeta qq{(substring)}; $r=qq{(substring)}; $inputstring=~s/$t/$r/; print $inputstring; __END__ startstring (substring) endstring