Select Code to Download

my ($cnt_rex, $cnt_match) = (0, 0);
while (<XFILE>) {
...
    ++$cnt_match;
    #.... do your processing here ....
}