String Perl

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