use strict;
use warnings;
use Data::Dumper;
use XML::Simple;
$/=undef;

open ('handle', "/home/cpos/aznapi_webseald-default.log") or die ("cannot open file : $!");
my $xml = <handle>;
my $ref = XMLin $xml;
print Dumper $ref;
close "handle";