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

my %replace = (person    => 'Mom',
               adjective => 'not interpolated');

$text =~ s/\$(\w+)/$replace{$1}/g;

print $text;