use strict; 
use warnings; 
use 5.012;

my $greeting = 'hello';
my $str1 = q{The lady said $greeting to me.};
my $str2 = qq{The lady said $greeting to me};

say $str1;
say $str2;

--output:--
The lady said $greeting to me.
The lady said hello to me.