my $file = 'schools.txt';
open (FH, "$file") or die $!;

my @schools;

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

print "@schools\n";

# Sample data from schools.txt

SCH
CODE,
ZONE SCHOOL NAME &
ADDRESS PRINCIPAL &
VICE-PRINCIPAL TELEPHONE,
FAX NUMBERS &
EMAIL ADDRESS 

--------------------------------------------------------------------------------
 
1744
North ADMIRALTY PRIMARY SCHOOL 
???? 
11 WOODLANDS CIRCLE 
SINGAPORE 739807 P : MDM LIM SOH LIAN 
    ??? 
VP: MR TAN MENG HUI 
    ???  Tel: 63620598 
Fax: 63627512 
ADMIRALTY_PS@MOE.EDU.SG  

--------------------------------------------------------------------------------
 
1738
North AHMAD IBRAHIM PRIMARY SCHOOL 
?????? 
10 YISHUN STREET 11 
SINGAPORE 768643 P : MISS FOONG YIN WEI 
    ???  Tel: 67592906 
Fax: 67592927 
AIPS@MOE.EDU.SG