change
my @lines = split /\n/, $plain_text;
to
my @lines = split /\r\n/, $plain_text;
[download]

grep> cd pub 
grep> more beer

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.