#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11147096
use warnings;
use List::AllUtils qw( all );

my $testdata = <<END;
sys ecm cloud-provider /Common/aws-ec2 {
    description "The aws-ec2 parameters"
    property-template {
        account { }
        availability-zone {
            valid-values { a b c d }
        }
        instance-type {
            valid-values { t2.micro t2.small t2.medium }
        }
        region {
            valid-values { us-east-1 us-west-1 }
        }
    }
}
END

sub expr
  {
  /\G\s+/gc;
  my $e = [];
  $e =
    /\G\s+/gc ? $e :
    /\G([^{}\s]+) "(.*?)"/gc ? [ @$e, { $1 => $2 } ] :
    /\G([^{}\s]+) \{/gc ?  [ @$e, { "$1" => (expr(),
      /\G\}/gc || die pos($_), ' missing } ', substr $_, pos($_))[0] } ] :
    /\G([^{}\s]+)/gc ? [ @$e, $1 ] :
    return ref $e eq 'ARRAY' && ( all { ref $_ eq 'HASH' } @$e ) ?
      { map %$_, @$e } : $e while 1
  }

local $_ = $testdata; # NOTE expr() expects input in $_
my $parse = expr();
pos($_) < length $_ and die "incomplete parse ", substr $_, pos($_);
$Data::Dump::LINEWIDTH = 26;
use Data::Dump 'dd'; dd $parse;