use Mail::Audit;

my $item = Mail::Audit->new();
my $body = $item->body;

$tbody  = join('',@$body);