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("))'

[download]
A picture is worth a thousand words, but takes 200K.

In Section Seekers of Perl Wisdom