I'm buffering like is showed in the code, but when I empty the variable $Number='' in the handle start and handle_end in the next elaboration the variable remains empty. But when I don't empty the variable, SOMETIMES, the parser paste two or more values.

#!/usr/bin/perl

use XML::Parser;

@files = <$plrepository/*.xml>;

foreach $xmlfile (@files) {
      #something is omitted
      $p2 = new XML::Parser(Handlers => {Start => \&handle_start,
                                           End   => \&handle_end,
                                           Char  => \&handle_char});
      
      $p2->parsefile($xmlfile);

}
  
  sub handle_start {
   my ($pkg,$element,%attr) = @_;
      $current_element = $element;
      if ( $element =~ /Header/i ) {
        $Number=$attr{Number}; 
        open (OUT, ">$outputfile") or die "No file";
      }
     $Number=''; # I empty the variable for the next Number in the fil
+e
      #something is omitted
  }
  

  
  sub handle_end {
    my ($pkg,$element,%attr) = @_;

    if ( $element =~ /Header/i ) {

        print OUT $Number,"$separator\n";
                print "\tNumber ". $Number . "\n";   
        close (OUT);
    }
      #something is omitted 
     $Number=''; # I empty the variable for the next Number in the fil
+e
  }
   sub handle_char {
   my $text = $_[1];
    if ( $current_element =~ /^Number$/i ) {
       ($text !~ /^\s*$/) && ($Number .= $text);
                                     #|-> buffer text
    }
      #something is omitted
  }
[download]

At the state of the art, I can't change my parsing module, so I have to solve this problem. B/R and thanx a lot.