my $datenMitMonatsnamen = qr/
            (
                \d\d?\.
                \s+
                (?:Januar|Februar|März|April|Mai|Juni |Juli |August|(?:Oktober)|November|Dezember
                  |Jan\. |Feb\.  |     Apr\.|    Jun\.|Jul\.|Aug\. |Okt\.      |Nov\.   |Dez\.)
                \s+
                (?:\d\d\d\d|\'?\d\d\D)
            )
            /x; # kommts bekannt vor?
            if( $zuUntersuchenderBereich =~ m/($datenMitMonatsnamen)/) {
                
                # Ausnahme in Wortliste aufnehmen,
                # Position entsprechend verschieben
                print "Monatsangabe ($1) gefunden bei Zeichen [\Q$z\E] "
                        . "an Position $c, "
                        . "Länge: " . length($1) . "\n";
                
                push @ausnahmen, $1;
                $c += length($1);
            }