Select Code to Download

foreach i ('ls -d APPL_RMKS_RCV* ')
   grep -v 'NOT|INVALID|MUST|ERROR' $i | grep - >> ${good_ones}
   grep 'NOT|INVALID|MUST|ERROR' $i | grep - >> ${bad_ones}
end

foreach $file(@file){
open(MYFILE, $file[$i]) or die qq(Cannot open $file[$i]\n);
...
    }    
    $i++;
}