POP3Client не определить перевод строки в теле письма

nl2br()

я пишу тело тело письма в файл не html формата, и в нём я не вижу перевода строк. Так что:
1. nl2br() мне не нужна
2. она всё равно не отработает

Речь о браузере не идёт, пишу в лог.

Ставь не \n, а \r\n

И что значит "бьет строки письма на части"?

Например 2 строки в письме (конец помечу $)

Компания ULTRA Electronics поздравляет Вас с наступающим Днем Рождения и извещает о предоставлении Вам дополнительной скидки.$
В период с 09.02.2007 по 13.02.2007 Вы можете приобретать товар в ULTRA Electronics по 2 колонке прайс-листа.$

Результат лога (если ставить \n или \r\n) будет примерноследующим:
Компания ULTRA Electronics поздравляет Вас с наступающим Днем Рождения и$
извещает о предоставлении Вам дополнительной скидки.$
В период с 09.02.2007 по 13.02.2007 Вы можете приобретать товар в$
ULTRA Electronics по 2 колонке прайс-листа.$

1) А чем ты просматриваешь лог? У тебя случайно не стоит в программе-просмотрщике режим автоматического переноса (Word Wrap)?
2) Берем hex-редактор и смотрим что за символы стоят в тех местах где ты видишь "перенос".

:)
лог я смотрел в том числе и winhex-ом

Тот что и был в начале топика.
В логе только те переводы строк, которые ставлю я в цикле.
Если я не ставлю \r\n, то письмо представляет из себя одну строку без переводов каретки, а если ставлю, то получается больше строк, чем было в изначальном письме.

:)
Код будет вечером, когда до дома дойду. Возможно я не доходчиво объяснил...
Вариант 1.
foreach ($pop->Body( 1 )) {
print $_;
}
В логе письмо - одной строкой.

Вариант 2.
foreach ($pop->Body( 1 )) {
print "$_\r\n";
}
В логе вместо 2-х строк - четыре, потому что метод Body порубил каждую мою строку на две.

Мы про какой язык говорим? Perl или PHP? Если про РНР то в нем нет такой штуки как $_ - это чисто перловая радость.

Мы говорим про Perl.

Это не сильно меняет дело. Ищи ошибку в своем коде.

ЗЫ А у тебя пользователи тоже будут письма просматривать через логи?

Не беспокойся за моих пользователей, о них беспокоюсь я :)
Я кажется нашёл ошибку. Сегодня поковыряюсь ещё и напишу в чём была проблема.

попробуй через модуль Net::POP3

use Net::POP3;

sub logw
{
my ($log) = @_;
my $log_file_name = './ml.txt';
open LOGFILE, ">>$log_file_name";
print LOGFILE $log;
close LOGFILE;
}

print "connect to $addr...\n";
my $pop = Net::POP3->new($addr);

if (defined($pop))
{
my $res = $pop->login($user, $pass);
if (defined($res))
{
print "USER OK\nPASS OK\n";
print "Get messages...\n";
my $msgnums = $pop->list; # hashref of msgnum => size

my $subject = '';
my $content = '';
my $from = '';
foreach my $msgnum (keys %$msgnums)
{
my $msgfull = '';
my $msg = $pop->get($msgnum);
my $msg_size = $$msgnums{$msgnum};
$msgfull .= $_ foreach (@$msg);
$msgfull =~ m/From: (.*)/;
$from = $1;
$msgfull =~ m/Subject: (.*)/;
$subject = $1;
$msgfull =~ m/\n\n(.*)/;
$content = $1;

logw($msgfull);

print "From: $from";
print "Subject: $subject";
print "Content: $content";
$pop->delete($msgnum);
}
}
else
{
print "Error invalid USER and PASS\n";
}
$pop->quit;
}
else
{
print "Error connect to $addr\n";
}

Дошли руки дописать в чём дело было.
В случае, если письмо
Content-Transfer-Encoding: quoted-printable
Строки письма бьются (в моём случае) на подстроки, не превышающие 74 байт. Однако, если строка не окончена, то в конце ставится знак "=".
В остальных случаях всё ок.