It's in $_ as it always is.
More common practice is
while(<FH>) {
last if (/__END__/);
}
my($end_tag) = $_;
> ----------
> From: Ronald J. Kimball
> Sent: Sunday, June 15, 2003 9:18 AM
> To: Thomas De Groote
> Cc: Nicholas G. Thornton; [EMAIL PROTECTED]
> Subject: Re: [MacPerl] exiting a while() loop
>
> On Fri, Jun 13, 2003 at 10:20:57PM +0200, Thomas De Groote wrote:
> > Add an extra variable and set that, like
> >
> > $exitloop = false;
> > while(<FH> || $exitloop){
>
> What do you suppose happens to the input from <FH> in that line of code?
>
> Ronald
>
>
