Trouble with Email::MIME modules

Hi,

I am trying to do the following: I have (an) email that is fetched from
an IMAP server
What I want to do is go over this mail and do two things:

- change all "Content-Transfer-Encoding: quoted-printable" or "7bit"
to 8bit
- drop all MIME parts that are "Content-Type: text/html"

and then save the resulting email to a text file. I want to save
the email as 8bit, since that makes parsing things a lot
easier for other scripts I have. Over the past
two weeks I have spent several hours reading up on various
MIME modules and testing things out. But I am simply not able
to come up with something that does what I want. Quite a frustrating
experience altogether, as I expected this to be a quick 20-lines
script.

At this point I am getting so frustrated that I would simply like
to look at working code of what I need to achieve and then learn
where I went wrong. I've already looked at various MIME and
mail related Perl modules. I think I need Email::MIME and
Email::MIME::Modifier but I can't come up with a working script.

Is there anyone who wants to help me out with this ? Thanks in
advance.

Best regards,
Filip
.