my ($header, $body) = split(/\n\n/, $message, 2)