In Perl, the pick your own delimiters version of double quotes ("..."). Variable expansion occurs, just like in a double quoted string, so you can say

my $x = qq{"Where's $who?" $asker asked worriedly.  "Hiding?"};