Hallo Raubier,

danke für den Tipp. Leider hat es noch nicht alles geklappt...

Zitat von dir, die hat es nicht geklappt.
use 5.14.0;
use warnings;

my @datensaetze = split /\n\n/, do { local $/; <DATA> };
say "$_\n" for grep /^Geburtuhrzeit 1999\.07\.31\.\d\d\.\d\d\.\d\d$/m, @datensaetze;

diese verkürzte Zeile, die hat super geklappt, bin noch ein Anfänger.:
my (undef, $year, $month, $day) = split ...

mit foreach ($startwert; $startwert < $zeilennr ; $startwert ++) habe ich gemeint:

$startwert ist gemeint: "Hajo in der Zeilenummer 15, $startwert = $gefunden-1
$gefunden habe ich gemeint: "Geburtuhrzeit 1999.07.31.21.29.53" Diese wurde mit dem Befehl:if (($year == 1999) && ($month == 07) && ($day ==31)) und dazu $gefunden = $. , um die Zeilennummer zu merken.
$Zeilennr ist gemeint, es soll solange suchen bis die nächste leere Zeile erkennt. Hier wäre zum Beispiel die Zeilennumer: 21, bevor der Name Heino kommt.
Leider geht er nicht in die Forschleife rein, irgendwie habe ich entweder einen Gedankenfehler gemacht oder eine andere Struktur muss angewendet werden.....

Bitte gib mir doch einen weiteren Tipp oder ihr entdeckt einen Fehler.

Danke.