in reply to Scripting in perl
See Re: How can I print part of a line between two different lines which applies equally here.