use strict;
use warnings;
$\ = $/;
while (<DATA>) {
	chomp;
	my $v= ((/{/ .. /}/) || 0);
	if ($v==1) {
		@_=();
	} elsif ($v=~/E0$/) {
		print "@_";
	} else {
		push @_, $_;
	}
}
##</code><code>##

__DATA__
v_x {
x1
x2
x3
x4
x5
x6
x7
x8
}
garbage filtered out
v_y {
y1
y2
y3
y4
y5
}

v_z {
z1
z2
z3
z4
z5
z6
}