if ($TheLine =~ /<RD>[^\n]*Status Compendium<<.JL>/i)
		{
        		$ListPos = 0;
        		until($ListPos > $#WordList)
        		{
        			if ($TheLine eq $WordList[$ListPos])
        			{
        				$TheLine = "";
       					pop(@WordList)
        			}
        		$ListPos +=1
        		}
       		}
        print OUTPUT "$TheLine";