Better yet, I think you can get both the quoted-printable decoding you want and the mail header parsing you'd like with use MIME::Parser, part of the MIME-tools package.

And if what you're doing is tinkering with a Perl-based mail filter, check out Mail::Audit.

Peace,
-McD