my %data;

{
   my %rec;

   while (<DATA>) {
      if (/^\s*{/ .. /^\s*}/) {

         if (/^\s*{/) {
            next;
         }

         if (/^\s*}/) {
            my $name = delete($rec{Name});
            $data{$name} = { %rec };
            undef %rec;

            next;
         }

         if (/^\s*(\S+)\s*=\s*"(.*)"/) {
            $rec{$1} = $2;
         }
      }
   }
}

require Data::Dumper;
print(Data::Dumper::Dumper(\%data));