Help for this page
{ my $line = <IN>; ... } redo unless eof(IN); }
my @in = <IN> { ... } redo while (@in); }