In your code fragment, $Report isn't empty when it's being printed either.

Sorry, wrong again.

sub script {
  my $Report="";
  sub note {
      my ($titre,$texte) = @_;
      my $Texte= '<H5>'.$titre.'</H5>ญญ<P>'.$texte.'</P>';
      $Report .=$Texte;
  }
  note($title,$text);
  print STDERR "*update.pl: end \n[\n$Report\n]\n";
}
script();
script();
script();
[download]

produces

*update.pl: end
[
<H5></H5>กก<P></P>
]
*update.pl: end
[

]
*update.pl: end
[

]
[download]

and you can see that the final print of $Report is empty every time but the first, just like I said.

                - tye