Mehrzeilige Textdatei auslesen und formatiert ausgeben

[Beat]

Ihr seht also, daß ich versucht habe, die beliebigen Zeichen im Eintrag |sel event...| auszulesen und in ein Array zu kopieren.

Hallo
dein $count wird sich nicht so verhalten wie du denkst
und zwar weil deine <Quelle> zeilenweise eingelesen wird, deine Beitragstexte aber über Zeilen hinweg gehen.

my $bunch = join(<QUELLE>); #jetzt hast du das Zeilenproblem weg

und da hast du alles in einem String.
Nun trennst du so, dass deine Einträge auch einen logischen Zähler haben werden.
du kannst nach |sel suchen und dies in einer Schleife abhandeln.

my $count = 0 ;
while ($bunch =~ /(|sel.*?|/sel)/g) {
  my $in = $1;
  # mach was mit $in
  $count++;
}

jetzt zählt $count effektiv jeden deiner Einträge.

mfg Beat