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".
|