my $s = "a (b) c";
$_ = $s;
$s = quotemeta $s;