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