##
my ( $addr_1_line_1, $addr_1_line_2 );
for my $node ( $user->findnodes( q{ ./*[ local-name()="address"
and @name = "1"] } )) {
for my $subnode ( $node->findnodes(
q{ ./*[ @name="Address line 1" ] } ) ) {
$addr_1_line_1 = $subnode->textContent();
}
for my $subnode ( $node->findnodes( q{ ./*[
@name="Address line 2" ] } ) ) {
$addr_1_line_2 = $subnode->textContent();
}
}