#!/usr/bin/perl

use strict;
use warnings;

my @data = reverse <DATA>;
my $notfound = 1;
while ($notfound) {
	 $data[0] =~ /\{/ 
	 and $notfound = 0 
     and last;	 
	 shift @data if $notfound;
}
@data = reverse @data;

__DATA__
12
i0
{
xo
46
{
28
98