1
2
3
4
5
6
7
8

for my $i ( 1 .. 100 ) {
  print "$i\n";

  # alle 33 Zeilen eine Trennzeile einfuegen
  if ( $i % 33 == 0 ) {
    print "---8<---\n";
  }
}

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!