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);