use XML::Simple qw( XMLin );

sub parse_xml {
   local $XML::Simple::PREFERRED_PARSER = 'XML::Parser';
   return XMLin(@_);
}

my $xml = parse_xml(...);