Select Code to Download

while (<PD_FILE>){
    if (/$tool_number/)
...
        print $_;
       }
}

while (<^(*?)$tool_number(.*)$/) {