The Mail::Box set of modules is very nice to do the kind of manipulations you want to perform, i.e. dissecting and reassembling emails.

Hope this helps, -gjb-