> > while ( <DATA> ) { > print if /^apple/ .. eof; > } > > > > John > -- > use Perl; > program > fulfillment >
Thanks John. I prefer this way. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>