$test = "hello";
$s = "(hello)";
$r = '"$1 world"';
$test =~ s/$s/eval $r/e;
print $test;