:
my $x = 'foo';
my $y = 'The answer is $x';
my $z;
eval {$z=$y};
say $z;
# or
say eval $y;

> The answer is $x