In your example $y is a string of characters, but when you eval it with "eval $y", eval expects that string of characters to be Perl code. You need to give eval actual code to eval, not just a string of characters. Do this by wrapping that string of characters in Perl code (in quotes):

my $x = 'foo';
my $y = 'The answer is $x';
my $z = eval enquote($y);

sub enquote {
    return 'qq{' . shift() . '}';
}
[download]

There's no great reason to have used the enquote sub rather than just inlining the buildup of the Perl-quoted string other than to attempt to make it more clear what the intent is. I could have just done this:

my $z = eval 'qq{' . $y . '}';
[download]

Or even...

my $z = eval "qq{$y}";
[download]

In any case, the goal is to turn a raw string of characters into something that eval can reasonably compile as code that when evaluated returns the original string with interpolation in place.

I get it. I never would have thought to nest it that much, but now I get it. Thanks.

Some further discussion on this general topic: Re: Evaluating $1 construct in literal replacement expression.

---

Give a man a fish:  <%-{-{-{-<

You need to eval a string:

my($greeting,$target)=('Hello','World');
my $str = '$greeting $target';
$res=eval "qq{$str}";
print $res

__END__
Hello World
[download]