String Perl

#!/usr/bin/perl -w
print qq|'"Hi," said Jack. "Have you read /. today?"'\n|;