NAME DER SCHULE
Halbachschule

Gesamtschule
STADT
Duisburg


NAME DER SCHULE
Erich-Kästner Gesamtschule
mit Förderschule
STADT
Augsburg


NAME DER SCHULE
Albert-Schweitzer-Schule

Städt. Ev. Grundschule
mit angeschlossener Musikschule
STADT
Bonn

#!/usr/bin/perl

use strict;

chdir("/srv/www/projekt/schulen")
        || die "Fehler: $!\n";

local(*FH, $/);
open FH, "test.txt"
        || die "Fehler: $!\n";

my $file = <FH>;

my @rows = $file =~ /NAME DER SCHULE([a-zA-Z_0-9\s\-\n\r\.üöäß]+)STADT/g;

my $counter = 0;
for (@rows) {
        $counter++;
        print "$counter\t$_\n";
}

localhost:/home/frosch/scripts # perl schools.pl
1
Halbachschule

Gesamtschule
STADT
Duisburg


NAME DER SCHULE
Erich-Kästner Gesamtschule
mit Förderschule
STADT
Augsburg


NAME DER SCHULE
Albert-Schweitzer-Schule

Städt. Ev. Grundschule
mit angeschlossener Musikschule

local $/ = "NAME DER SCHULE\n"
my @schools = <FH>;
chomp @schools;

#!/usr/bin/perl
use strict;
use warnings;

my $filename='/srv/www/projekt/schulen/test.txt';

my $data="";

{
  local $/=undef;
  open(my $fh, '<', $filename) or die "ERROR open $filename ($!)";
  $data=<$fh>;
  close($fh);
}

while(my ($schulname,$stadt)=$data=~/NAME DER SCHULE\s+(.+?)\s+STADT\s+(\S+)\s+/sgc)
{
  print <<EOF;
Schulname: $schulname
Stadt:     $stadt

EOF
}

open my $handle, \$scalar;