#! /usr/bin/perl
use strict;
use warnings;
use Data::Dump qw{ pp };

use XML::LibXML;

sub with_id {
    my ($dom, $xpath) = @_;
    return { name => $dom->findvalue("normalize-space($xpath)"),
             id   => $dom->findvalue("$xpath/\@id"), }
}

my $dom = 'XML::LibXML'->load_xml(IO => *DATA);

my %node = (
    author    => with_id($dom, '/node/author'),
    type      => with_id($dom, '/node/type'),
);

@node{qw{ created updated title }}
    = @{ $dom->findnodes('/node')->[0] }{qw{ created updated title }};

@node{qw{ content parent root reputation }}
    = map $dom->findvalue("/node/$_"),
          qw( doctext parent_node root_node reputation );

print pp \%node;

__DATA__
...