my $body = $part->body_as_string;
$body =~ s/\QThis is a multi-part message in MIME format.\E$//;
$body =~ s/^$//;
$body =~ s/--.+$//;
$body =~ s/^Content-Disposition.+$//;
$body =~ s/^Content-Transfer-Encoding.+$//;
$body =~ s/^Content-Type.+$//;