my $text = q{
  Dear $person,
  I know that this text is $adjective.
  But I wish it could be...

};

my $person    = 'Mom';
my $adjective = 'not interpolated';

print eval "qq{$text}";
[download]