Converting Mail::Internet to MIME::Entity?

[Robert Nicholson]

The docs for MIME::Entity suggest you can do this to build a data
array reference for use with parse_data

#my @lines = (@{$mail->header}, "\n", @{$mail->body});

in my case whenever I do this I end up with @lines omitting all header
information.

Currently I'm doing this

@msg = split('\n', $mail->as_string());
@newMsg = map { $_ .= "\n" } @msg;

but I'm sure there's a better way.