#!/usr/bin/perl
$inputstring=qq{startstring <strong>(substring)</strong> endstring};
$t=qq{<strong>(substring)</strong>};
$r=qq{<b>(substring)</b>};

$inputstring=~s/$t/$r/;
print $inputstring;


#The final string should be:

startstring<b>(substring)</b> endstring