Select Code to Download

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