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