>
> 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>
