$s = "foo(bar)";
$b = "foo\(bar\)";
$s =~ s/$b/replace/;
print "$s\n";

または

$s = "foo\(bar\)";
$b = "foo\\(bar\\)";
$s =~ s/$b/replace/;
print "$s\n";