Re: extracting line between words

[Igor Sutton]

while(<@line>){
print if $_ =~ /The/ .. /east/ ;

I suggest this:

print join " ", (grep { /The/ .. /east/ } <@line>);

--
Igor Sutton Lopes
t: +55 51 9627.0779
e: [EMAIL PROTECTED]