Следующий метод изначально был взят у Рэндола Шварца. Если вы поищете в Сети, то найдете нечто вроде Perl-Column, мне встречался даже перевод, правда, неполный.

Далее следует примерно такой алгоритм: если в письме есть часть типа text/plain, то берется именно эта часть, а все остальное игнорируется.

Таким образом, если мы встречаем письмо, где есть HTML-часть и текст, то в качестве входящих данных берется именно текст. Если текстовой части нет – письмо игнорируется.

        $pop->delete ( $msgid );

        @message = @$message;

        $ent = $parser->parse_data ( @message );

        $bodyCoding = $ent->head->mime_attr( 'Content-type.charset' );

        $origType = $ent->head->get( 'Content-Transfer-Encoding',0 );

        if ( $ent->effective_type eq 'text/plain' )

            {

            # письмо - только текст

            $bodyCoding = $ent->head->mime_attr (

'Content-type.charset');

            $origType = $ent->head->get(

'Content-Transfer-Encoding',0 );

            $body = $ent->body_as_string;

            }

        elsif (

$ent->effective_type eq 'multipart/alternative'

                 and $ent->parts(0)->effective_type eq 'text/plain' )

                 {

      # письмо, где первая часть мультипар - текст

      $bodyCoding = $ent->parts(0)->head->mime_attr(

'Content-type.charset' );

      $origType = $ent->parts(0)->head->get(

'Content-Transfer-Encoding',0 );

      $body = $ent->parts(0)->body_as_string;

      }

  elsif (