The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::Base;

__DATA__
===
--- in) lines append=---\n join
one
two
three
--- out)
one
---
two
---
three
---

===
--- in) lines chomp append=---\n join
one
two
three
--- out
one---
two---
three---

===
--- in) chomp append=---\n
one
two
three
--- out
one
two
three---