Help for this page

Select Code to Download

Select or download this

         if ($TheLine =~ /<RD>[^\n]*Status Compendium<<.JL>/i)
        {
...
                }
               }
        print OUTPUT "$TheLine";

Select or download this

if ($TheLine =~ /<RD>[^\n]*Status Compendium<<.JL>/i)
{
...
          print OUTPUT $TheLine if ($TheLine ne $WordList[$i])
     }
}