my $y = 'Boo!';
my $x = '@{[print $y, $/]}';  # note the single quotes here
my $z = "$x";
print $z;