Quote with qq< (less than)
#!/usr/bin/perl -w print qq<'"Hi," said Jack. "Have you read /. today?"'\n>;