my @mail = mail_lesen();
my @nachricht; # nachricht ohne Header

my $im_header = 1;
while (defined(my $zeile = shift(@mail))) {
    if ($im_header) {
        if ($zeile eq '') {
            $im_header = 0;
        }
        next;
    }

    push @nachricht, $zeile;
}