my Mail::Message $msg = ...; my $decoded = $msg->decoded; my $encoded = $msg->encode(transfer => 'binary');
See SYNOPSIS in Mail::Message::TransferEnc
Encode or decode message bodies for binary transfer encoding. This is totally no encoding.
See DESCRIPTION in Mail::Message::TransferEnc