my ( $muell, $rest ) = split /\r?\n\r?\n/, $text, 2;