Select Code to Download

$foundit = 0;
while (<$FH>) {
...
if ($foundit) {
    do some processing
}

open FH,"file" or die "Can't open file : $!\n";
$count1 = 0;
...
       do some processing
   }
}