my $casename = '';             
my $count = 0;

$/="";     # paragraph input mode

while (<IN>) {
	if (/^\d+\sof\s\d+\sDOCUMENTS$/mx ... /^No.\s\w+$/mx){
		if (/^(.*)/){
	    $casename=$1;}
	    if (/EDUCATION/g){
		$count++;}		
	next;}
}

print "Case Name: $casename\n";
print "Education: $count\n";