$s = '(hello)';
$r = '$1 world';
$_ = 'hello';
eval "s/$s/$r/";
print $_;