use 5.010;
use strict;
use warnings;


my $serverresponse = '<pp ppn="1" relType="Dynamic" 

   uid="3" ipei="00435709475" ac="10551" s="Yes" uak="328497hfdfh8" encrypt="1" capMessaging="1" 

capMessagingForInternalUse="0" capEnhLocating="1" capBluetooth="1" 


                 ethAddr="00:30:42:0F:F2:7D"                       hwType="630d" 
                                 
                                 
                                 
                                 
                                 
        />';
                                
$serverresponse =~ s|[\r\n]||g; # falls auf mehere Zeilen dann Zeilenende rauslöschen
my (@lines) = $serverresponse =~ m|\<pp\s+([^>]+)\s+/>|g;

my %hash =                            # 4. dann ists ein Hash
        map { (split /=/) }           # 3. Wertepaare am = auftrennen
        map { s/"//g;(split /\s+/) }  # 1. " rauslöschen, 2. Wertepaare am Leerzeichen austrennen
        @lines;                       # für Zeilen
#say "$_=>$hash{$_}" for keys %hash;  # nur zum Test wenn gewünscht ;)

        
say "$_ ist $hash{$_}" for qw(uid ppn ethAddr hwType);