At the Moment i am doing the following
But i have no clue how to break on Database: or Properties:

$output =~ s/Configuration Status:\n/Configuration Status:/g;
my @output = split /\n/, $output;
for (@output) {
$_ =~ s/\s//g;
#print "$_\n";
my ($attr, $val) = split /[=,:,-]/, $_;
$dg_config{$attr} = $val;
}
[download]