perl -e 'printf( qq(%s\n"), q("This is a string @#$%^%&*/\\) . q[()] . chr(047) . qq("))'