String Perl

$text = q/"I said, 'no.'"/;
print $text;