$ perl -E 'my ($x, $y) = qw{++ --}; say for "\Q$x\E$y", "$x\Q$y", "\Q$x$y"' \+\+-- ++\-\- \+\+\-\-