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