my $result = join("\n", @lines, "");