while (my $line = <FH>) {
    next unless $line =~ m/\s([\w ]+? PRIMARY SCHOOL)/;
    push (@schools, $1);
}