You have \r\n's coming in as your line terminators.

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

HTH
grep

grep> cd pub 
grep> more beer