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