987624 TriggerVar ##
##

sub filterXML {
   my $xml = shift;
   my @xmlPieces = split (/\n/, $xml);

   my ($tmpFilter, $flag) = filter (\@xmlPieces);

   while ($flag) { 
      ($tmpFilter, $flag) = filter ($tmpFilter);
   }
   my $filtered = join "\n", @$tmpFilter;
   return $filtered;
}

sub filter {
   my $items = shift;
   my (@new, $prev, $haveFiltered);
   for my $xmlLine (@$items) {
      my $test = $xmlLine;
      $test =~ s/^\s+//g;
      if ($test =~ /^<\// && $prev =~ /^<\w/) {
         unless ($prev =~ /<(.*)>(.*)<(.*)>/) {
            pop @new;
            $prev = $test;
            $haveFiltered++;
            next;
         }
      }
      push (@new, $xmlLine);
      $prev = $test;
   }
   return (\@new, $haveFiltered);
}