$text = sub {
<<EOT;
Dear $person,
I know that this text is $adjective.
But I wish it could be...
EOT
};

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

print &$text;