String Perl

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