http://www.perlmonks.org?node_id=983782


in reply to get n lines before or after a pattern

Check if Re: printing several lines around match helps