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

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