#! perl -slw
use strict;
use re qw[ eval ];
use Data::Dump;

my %shapes;
my( $type, $key, $value );

my $reComment = qr[  \# .*? \n \s* ]x;
my $reWS = qr[ \s* | $reComment ]smx;

my $reNestedBlock;
$reNestedBlock = qr[
    \{ (?> [^{}]+ | (??{ $reNestedBlock }) )+ \} $reWS
]smx;

my $reAttribs = qr[
    $reComment
  |
    ( (?> \w+ ) ) (?{ $key = $^N })
    \s* = \s*
    ( \S+ ) (?{ $value = $^N })
    (?{ $shapes{ $type }[-1]{ $key } = $value })
    $reWS
]smx;

my $reShape = qr[
    $reComment
  |
    Shape \s* = \s* ( (?> \w+ ) ) 
        (?{ push @{ $shapes{ $type = $^N } }, {} }) 
    $reWS+
    \{ $reWS
        (?> $reAttribs+ ) $reNestedBlock? 
    \} $reWS
]smx;

my $reShapes = qr[
    Shapes $reWS \{ $reWS $reShape+ \}
]smx;

do{ local $/; <DATA> } =~ $reShapes or die "Failed to match!";

print dump \%shapes;

__DATA__
Shapes
{
  Shape=Circle # A comment
  {
    name= joe
    diameter=3
    color=blue
    # A comment
  }
  ## Another one
  Shape=Triangle{ name=Equilateral sides=3,3,3 color=green }
  Shape=Triangle{ name = Right       sides = 3,4,5 color = green }
  Shape=Circle { name=steve diameter=5 color=red }
  Shape=Square { name=steve2    size=5 color=black }
  Shape = Square
  {
    name=fred2
    size=3
    color=yellow
       { random stuff { {{{{{{{{{{{{{{{fred}}}}}}}}}}}}}}} } }
  }
  Shape=Circle { # A comment
    name = fred   # a comment
    diameter = 3
    color = blue
       {
         random stuff
            {
             further depth
            }
       }

  }
}

##</code><code>##

C:\test>624564 
{
  Circle   => [
                { color => "blue", diameter => 3, name => "joe" },
                { color => "red", diameter => 5, name => "steve" },
                { color => "blue", diameter => 3, name => "fred" },
              ],
  Square   => [
                { color => "black", name => "steve2", size => 5 },
                { color => "yellow", name => "fred2", size => 3 },
              ],
  Triangle => [
                { color => "green", name => "Equilateral", sides => "3,3,3" },
                { color => "green", name => "Right", sides => "3,4,5" },
              ],
}