Or just use escapes, or if it's about passing something from the shell to Perl, the -s option...

$ perl -sle 'print qq{\047\x27$x}' -- -x="'"
'''
$ FOO='`´()/~?*+#"@$%&'"'"; perl -sle 'print $x' -- -x="$FOO"
`´()/~?*+#"@$%&'
[download]