#!/usr/bin/env perl 
use strict;
use warnings;

my ($y, $out);

$y = 'baby';
my $hd = <<'EOT';
Hello $y!
EOT

eval "\$out = qq{$hd}";
print $out;
$y = 'world';
eval "\$out = qq{$hd}";
print $out;