use strict;
use warnings;
use Data::Dumper;
use XML::Simple;
$/=undef;
my $xml = <DATA>;
my $ref = XMLin $xml;
print Dumper $ref;

__DATA__
<event rev="1.2">
<date>2014-01-10-07:59:24.439+05:30I-----</date>
<outcome status="0">0</outcome>
<originator blade="webseald" instance="default"><component rev="1.4">authn</component>
<event_id>101</event_id>
<action>0</action>
<location>PosIntWebSeal1prod</location>
</originator>
<accessor name="">
<principal auth="IV_LDAP_V3.0" domain="Default">goldytelecom</principal>
<name_in_rgy>uid=GOLDYTELECOM,cn=external,cn=Users,o=vodafone,c=in</name_in_rgy><session_id>05262372-799f-11e3-96d8-00145ee78c6d
</session_id><user_location>10.77.50.58</user_location><user_location_type>IPV4</user_location_type>
</accessor><target resource="7"><object></object></target>
<authntype>formsPassword</authntype><data>
</data>
</event>