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