my @lines = 1..3;
my $result = do { local $" = "\n"; "@lines\n" };
die $result;