Perl smtp

Искал в группах телеграмм modernperl.ru ? И можешь код скинуть?

А как ты вкурил, что этому надмозгу надо? О_о

Может есть фикня сразу перекодировать этот кусок в читаемую?

base64

Всякими обрезаниями действительно не стоит пользоваться.

Не совсем...

Subject: =?utf-8?B?0L/QvtGH0......?=
  =?utf-8?B?cnU=?=

Email::MIME нормально декодирует заголовки.

my $parsed = Email::MIME->new($message);
my @hdr = $parsed->header_str_pairs();
print join("\n",@hdr)

Он procmail изобретает.

)

Спасибо большое. Как раз что надо. Остальным в этом топике неспасибо за флуд.

Флуд апает твою тёму, ессичо.

Пометь как решённую, кстати. Если уж до конца правильно делать.