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