#!/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 */