#!/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
}