$var =~ s#\Q(#,(#;