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