$ent->effective_type eq 'multipart/alternative'

            and $ent->parts(1)->ffective_type eq 'text/plain' )

                 {

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

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

'Content-type.charset');

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

'Content-Transfer-Encoding',0 );

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

      }

  else {next}

  chomp $origType;

Чем универсален этот код, так это тем, что в нём происходят все стандартные MIME-декодировки – Base64 и Quoted-Printable – и перекодирование из ISO и KOI в Windows-1251.

        # Если закодировано, декодируем его, во имя счастья

        if (lc($origType) eq 'quoted-printable')

            { $body  =  MIME::QuotedPrint::decode($body); }

        if (lc($origType) eq 'base64')

            { $body  =  MIME::Base64::decode($body); }

        $bodyCoding = lc($bodyCoding);

        # Перекодировка кирилицы у тела, если надо.

        if ($bodyCoding ne '')

            {

      if ($bodyCoding eq 'koi8-r') {$bodyCoding = 'koi'}

            if ($bodyCoding eq 'koi8r') {$bodyCoding = 'koi'}

            if ($bodyCoding eq 'iso8859-5') {$bodyCoding = 'iso'}

            if ($bodyCoding eq 'koi8-u') {$bodyCoding = 'koi'}

      if ($bodyCoding eq 'koi' || $bodyCoding eq 'iso')