my $file = '06_Protection_de_la_tête.xml';

##</code><code>##

use File::Find::Rule;
my @files = File::Find::Rule->file->name('*.xml')->in('.');
my $file = shift @files;

##</code><code>##

use Encode;
my $file = decode('utf8', $file)

##</code><code>##

06_Protection_de_la_t�te.xml: No such file or directory