EncDec - MIME header encoder/decoder
use IM::EncDec;
$mime_header_encoded_string =
mime_encode_string(string, iso7bit, iso8bit);
$string =
mime_decode_string(mime_header_encoded_string);
$B_encoded_string = b_encode_string(string);
$string = b_decode_string(B_encoded_string);
$Q_encoded_string = q_encode_string(string);
$string = q_decode_string(Q_encoded_string);
MIME header encoder/decoder package.
$_ = "JAPANESE (Kazuhiko Yamamoto)";
mime_encode_string($_, 'iso-2022-jp', 'iso-8859-1');
=> =?iso-2022-jp?B?GyRCOzNLXE9CSScbKEI=?=
(Kazuhiko Yamamoto)
s/\n[\t ]+//g;
print mime_decode_string($_), "\n";
=> "JAPANESE (Kazuhiko Yamamoto)"