my $y = "Boo!";
my $x = "@{[print $y, $/]}";