#!/usr/bin/perl

# http://perlmonks.org/?node_id=1175466

use strict;
use warnings;

$_ = do { local $/; <DATA> };

print $1 while /^(object.*?^\};\n)/gms;

__DATA__
/* SOME COMMENT HERE */
/* MORE COMMENT */
/* Description - information */
options {
    option1 value;
    option2 value;
    option3 "value";
    option4 { value1; value2; };
};

/*
identifier1
 ID 123456
*/

object "identifier1" in {
    option1 value;
    option2 "value";
    option3 { value1; value2; };
    option4    { value; };

};

/*
identifier2
 ID 234561
*/

object "identifier2" in {
    option1 value;
    option2 "value";
    option3 { value1; value2; };
    option4    { value; };

};

/*
identifier3
 ID 345612
*/

object "identifier3" in {
    option1 value;
    option2 "value";
    option3 { value1; value2; };
    option4    { value; };

};

/* EOF */