Select Code to Download

#!perl
use strict;
...
descr is null and list is empty
descr is null and list is empty
descr is null and list is empty

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

my $n = sub {1};
my $m = sub {&$n*2};
...
__OUTPUT__
1 2 4
2 4 8

  How can I expand variables in text strings?
    Let's assume that you have a string that contains placeholder vari
+ables.
...
        );
        $text =~ s/\$(\w+)/$user_defs{$1}/g;

my $color = "red";
my $fruit = "apple";
...
>>Hi, my name is $name.  Please hand me a $color $fruit.<<
->Hi, my name is chromatic.  Please hand me a red apple.<-