http://www.perlmonks.org?node_id=438970


in reply to Escaping characters in one-liners

I Think this shows the general solutions.
perl -e 'printf( qq(%s\n"), q("This is a string @#$%^%&*/\\) . q[()] . chr(047) . qq("))'
A picture is worth a thousand words, but takes 200K.