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/