use MIME::Words qw(:all);
  $decoded = decode_mimewords('Subject: =?KOI8-R?Q?=D4=C5=D3=D4?=');
  $encoded = encode_mimeword("тест", "q", "koi8-r");
  $encoded = encode_mimewords("Subject: тест", Charset=> 'koi8-r', Encoding => 'q');
# для base64, вместо "q", написать "b".

URL:
Обсуждается: http://www.opennet.me/tips/info/540.shtml

• Как кодировать/декодировать на Perl содержимое полей в Quoted Printable,Vlad, 14:23 , 10-Ноя-06

Я использую ту же функцию, но она плохо работатет когда в теме несколько русских слов -
съедаются пробелы.
Из "аб вг" получается:
=?UTF-8?B?0LDQsQ==?= =?UTF-8?B?0LLQsw==?=
Но Оутлук отображаетт это как "абвг"

Порбел между аб и вг исчезает.