open(DATA, '/tmp/file') or die $!;
$header = 1;
while(<DATA>) {
    $header = 0 if(/^$/);
    if($header) {
      $header .= $_;
    } else {
      $body .= $_;
    }
}
close DATA;