my @zeilen_mit_beginne = grep { $_ =~ /Beginne.+pid/ } @alle_zeilen;
my $relevante_zeile = $zeilen_mit_beginne[-1];