my @lines=qw(this that the other);
my $result= join("\n", @lines)."\n";