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