#!perl

use strict;
use warnings;
use CGI;

use XML::Twig::XPath;
my $t= XML::Twig->new(pretty_print => 'indented',
                    twig_handlers => {
                                        
                    my $Xeu4a = $t -> get_xpath ('find/find/work[@root='a']');
                    my $Xeu4b = $t -> get_xpath ('find/find/work[@root='b']');
                    my $Xeu4c = $t -> get_xpath ('find/find/work[@root='c']');
                    my $Xeu4d = $t -> get_xpath ('find/find/work[@root='d']');
                    my $Xeu4e = $t -> get_xpath ('find/find/work[@root='e']');
                    }

        $Xeu4a =~ s/(\d)(?=(\d{3})+(?!\d))/$1 /g;
        print $Xeu4a->text,"\n",

        $Xeu4b =~ s/(\d)(?=(\d{3})+(?!\d))/$1 /g;
        print $Xeu4b->text,"\n",
        
);

$t->parseurl('http://arenas.pagesperso-orange.fr/divers/find.xml');
flush($X*);