my $xml = q{<ServerResp><pp ppn="1" relType="Dynamic" uid="3" ipei="00435709475" ac="10551" s="Yes" uak="328497hfdfh8" encrypt="1" }
. q{capMessaging="1" capMessagingForInternalUse="0" capEnhLocating="1" capBluetooth="1" ethAddr="00:30:42:0F:F2:7D" hwType="630d" /></ServerResp>};
use XML::LibXML;
my $p = XML::LibXML->new;
my $doc = $p->parse_string($xml);
my $root = $doc->documentElement; 
my ($pp) = $root->findnodes("pp");
for my $field ( qw/ uid ppn ethAddr hwType /) {
    say $pp->getAttribute($field)
}
__END__
3
1
00:30:42:0F:F2:7D
630d