use 5.010;
use strict;
use warnings;
my $serverresponse = '';
$serverresponse =~ s|[\r\n]||g; # falls auf mehere Zeilen dann Zeilenende rauslöschen
my (@lines) = $serverresponse =~ m|\]+)\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);