Il est possible d'utiliser XML::Simple pour vérifier que les fichiers sont bien formés, cela peut permettre de faire un script qui traverse les répertoires et identifie les fichiers à corriger avant de pouvoir traiter toutes les données.

#!/usr/bin/perl
use Strict;
use XML::Simple;

my $file ='index.xml';
my $ref = eval {XMLin($file)};

if($@) {
  print "Une erreur possible : $@";
}
else {
  print "Aucun probleme";
}