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