Select Code to Download

my $x = 'foo';
my $y = 'The answer is $x';
...
sub enquote {
    return 'qq{' . shift() . '}';
}

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

my $z = eval "qq{$y}";