my $anzahl_faelle_mandant = 0;
my $anzahl_faelle_gesamt = 0;
$zeile = 0;

open($FH, "<$FHOUTAUSZAHLUNG") or die "open file: $!";
while($line = <$FH>)
{
	$zeile++;
	chomp ($line);
	while ($line !~ /\s\sS U M M E N B L A T T/)
	{
		# falls die Zeile einen neuen Fall darstellt (BANK BLZ (8stellig))
		if ($line =~ /BANK\s\d\d\d\d\d\d\d\d/)
		{
			$anzahl_faelle_mandant++;
			$anzahl_faelle_gesamt++;
			#print $line;
		}
		$line = <$FH>;
		chomp ($line);
		$zeile++;
	}
	#SUMMENBLATTBERECHNUNG
	print $zeile . ": " . $anzahl_faelle_mandant . "\n";
	#alle Mandantenzähler wieder auf 0 setzen
	$anzahl_faelle_mandant = 0;
	
}
print "gesamt: " . $anzahl_faelle_gesamt;
close $FH;