$ perl -wE'
$x = "()";
say "\Qtest:";
say "\Q$x";'
test\:
\(\)