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