#!/usr/bin/env perl

use strict;
use warnings;

use XML::Fast;
use Data::Dumper;

my $xml = '<house_number>12</house_number>';
my $xml_hash = xml2hash $xml;
print Dumper($xml_hash),$/;

$xml = '<house number="12"/>';
$xml_hash = xml2hash $xml;
print Dumper($xml_hash),$/;

$xml = '<house_number="128"/>';
$xml_hash = xml2hash $xml;
print Dumper($xml_hash),$/;

##</code><code>##

$VAR1 = {
          'house_number' => '12'
        };

$VAR1 = {
          'house' => {
                       '-number' => '12'
                     }
        };

$VAR1 = {
          'house_number="128"' => ''
        };