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