my $nachricht = '';
{
  local $/ = "\n\n";
  open(my $fh,"<",$mail) or die $!;
  while(my $part = <$fh>){
    $nachricht .= $part unless($. == 1);
  }
  close $fh;
}

print $nachricht;