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