map{ $_ =~ /(\w*)\s*=\s*(.*)\n/; $conf{$1} = $2; } grep /=/, @data;