$ perl -wE 'my @x = qw{$ % ^}; my @y = map { quotemeta } @x; say "@y"'
\$ \% \^