`Avoid Special Cases`

Because of incorrect end; handling, the original program may have had bugs
It only works if there is a load section followed by unload sections
- And nothing else in between

     16 while (<INFILE2>) {
     17   chomp;
     18   $ct_scanout = 1 if (/apply\s*\"grp[0-9]_unload\"/);
     19   $chain_test=1  if (/CHAIN_TEST/);
     20
     ...
     52 }                               #end of While statement