how to extract one block out

Hi,

Here I have

...some blocks ...

 @article{Bi07_chen,
   author = {Chen, J. P. and Zhang, X. and Fernandez, A.},
   journal = BIOINFOR,
   volume = {23},
   number = {5},
   pages = {563-572},
   year = {2007}
}

@article{MP08_Crespo,
   author = {Crespo, A. and Fernandez, A.},
   journal = MOLPHARM,
   volume = {5},
   number = {3},
   pages = {430-437},
   year = {2008}
}

I only wanted to extract this bolck out


@article{Bi07_chen,
   author = {Chen, J. P. and Zhang, X. and Fernandez, A.},
   journal = BIOINFOR,
   volume = {23},
   number = {5},
   pages = {563-572},
   year = {2007}
}

using

if ($line =~ /Bi07\_chen/..$line =~ /^\}$/){
			print $line;
					}

but it expanded to the final }

Thanks ahead for your suggestions,

Best regards,

• how to extract one block out by lina
• Re: how to extract one block out by timothy adigun