how to extract one block out

[lina]

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,

-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/