#! perl -sl
use strict;
use Data::Dump qw[ pp ];

sub parseConfig {
    my( $source, %config ) = shift;

    $source =~ s<(\S+)\s*(\{)\s*(.+)\}|(\S+)(\s+)([^;]+);>
    <
        my( $key, $f, $rest ) = ( $1 || $4, $2 || $5, $3 || $6 );

        $config{ $key } = $f eq "{" ? parseConfig( $rest ) : $rest;
    >seg;
    return \%config;
}

my $config = parseConfig( do{ local $/; <DATA> } );
pp $config;

__DATA__
## data per your OP