my $i; # für die äussere Schleife
my $u; # für die innere Schleife
 
open($infile, '<', 'herausfinden.d') or die "$!";
my @a = <$infile>;
close($infile);
 
my @b = (); #Leere Array
my %h; # hier habe ich noch nicht ganz verstanden, was das Prozent bedeutet. Im Internet versuchte die Erklärung heraus zu finden...
my $count = 0; # habe ich eingefügt, da ich sehen möchte, ob die Zeile richtig erkannt hat, und für mich erleichtert das Suchen im Beispiel_Liste.txt. Im Wirklichkeit ist die Datei viel länger...
foreach $i (@a) # start der äussere Schleife, um die Datei jede Zeile einzulesen
{
    chomp($i); # chomp the trailing newline, It shows the readline
    $count = $count + 1;
    #print "$count \n"; #dient als Kontrolle
    if ($i eq "") # Search for empty line
    {
                print "Find empty line $count \n"; #Kontrolle funktioniert
                #next;
                foreach $i (@a) #ab hier habe ich versucht mit dem festen Datum zu arbeiten, es hat auch funktioniert
                {
                               if ($i =~ /Geburtuhrzeit [0-9].[0-9]/)
        {
                  my (undef, $year, $month, $day) = split(/\s|\.|\//, $i); 
                               if (($year == 2010) && ($month == 07) && ($day ==31))
                                 {
           print "Find  Geburtuhrzeit with fixed date line $count $i \n";
           next;
# Ab hier kam ich nicht mehr weiter, da müsste ich noch weiter herum werkerln, vielleicht habt ihr einen Tipp...
     #   if ($#b >= 1 && $b[1] =~ /Geburtuhrzeit [0-9].[0-9]/)
           # {
            # print "Find Geburtuhrzeit line $. \n"; # Kontrolle Funktioniert, ich möchte eine festes DAtum suchen!
          #  $h{$b[0]} = [];
           # foreach $u (1 .. $#b) # foreach (startwert..... $#array)
           # {
          #      push ($h{$b[0]},($b[$u])); # push (ARRAY, newLIST) # hat nicht geklappt!
          #  }
        }
        @b = ();
        next;
    }
  }