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

##</code><code>##

@schools = grep {/\s([\w ]+? PRIMARY SCHOOL)/; $_ = $1} <FH>;