доброго времени суток.
подскажите пожалуйста, как выделить body в массиве-письме, если известно что body и header разделены пустой строкой или 2-мя пустыми строками

использую Net::POP3;
...
$mess=$pop->login($user,$pass);
...
for ($i=1; $i<=$mess; $i++) {
     $message=$pop->get($i); #получаю текущее письмо
            foreach $head (@$message) {
                   $subj=$1
                   if ($head=~/Subject:\s(.*)/);  #выделяю Subject
                   ...
                   }
}

а вот выделить все body и сложить например в отдельный массив не получается(

frost84, а специальные модули использовать не хотите?

можно и модули, но желательно без них. 
ведь это можно сделать с помощью регэкспов.. только хотелось бы понять как

Добавьте счетчик пустых строк,
проверяйте пустая ли строка, если да то увеличиваем
если счетчки равен двум, то следующее это body 


Это сообщение отредактировал(а) shamber - 19.9.2008, 15:00

понятно спасибо попробую и так тоже, а пока сделал так

foreach (@$message) {
    if ( !/^\n+|\r+/ ) {push (@arr,$_); $_ = undef;} else {last};
    }

в @$message остается body, а в @arr header.

интересно а насколько корректно делать $_ = undef ? 
значение становится неопределенным, но остается в массиве..

Чтобы оно не оставалось в массиве:

спасибо большое.