use strict;
use warnings;

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

my $FHOUTAUSZAHLUNG = '/some/file';

open(my $FH, "<$FHOUTAUSZAHLUNG") or die "open file: $!";

while(my $line = <$FH>) {
    $zeile++;
    chomp ($line);

    if ( $line =~ /\s\sS U M M E N B L A T T/ ) {
        #SUMMENBLATTBERECHNUNG
        print $zeile . ": " . $anzahl_faelle_mandant . "\n";
        #alle Mandantenzähler wieder auf 0 setzen
        $anzahl_faelle_mandant = 0;
    }

    elsif ($line =~ /BANK\s\d\d\d\d\d\d\d\d/) {
        $anzahl_faelle_mandant++;
        $anzahl_faelle_gesamt++;
    }
}
print "gesamt: " . $anzahl_faelle_gesamt;
close $FH;