$fn = "/home/t8.g";
open FP, "$fn" or die "Error in write:$!";
while (<FP>){
	if($_ =~ m/{/g){
		$a = $';
		if($a =~ m/}/g){
		print "Line no. $..Occurence Identified\n";
		open FP1, ">>/home/t9.g" or die "Error in write:$!";
		print FP1 "$`\n";
		close FP1;
		}
	}
else{
print "Line no. $..No Occurence\n";
}
}
close FP;