The new log sample can be parsed with this code:

# assuming that DATA contains the config
my @hosts;

do{ &new_host() if /{/ } while <DATA>;

sub new_host {
    my $data = {};
    until (defined ($_=<DATA>) && $_=~/}/) {
        chomp;
        my (undef,$field,$value)=split /^[\t ]*([^=]*)=/,$_;
        $data->{$field}=$value;
    }
    push @hosts,$data;
}
[download]

Unfortunately, all fields are named differently.