Help for this page

Select Code to Download

Select or download this

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

Select or download this

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