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