I am still very new to the world of Perl. I would like to take a stab at this. I do believe that this might be the use of the operator called the flip-flop operator that deals with eof's but it seems kind of tweaked. According to Programming Perl 2nd Edition on page 160 there is a block of code that looks *kind* of similar to what you are showing:

while (<>) {
    print if /pattern/ .. eof;
}
[download]

Of course the biggest difference being the use of the actual eof() function.

The only other thing I can see here is the possiblity of looking for a range of patterns using the .. operator which in all honesty seems more likely than my above perception.

I'd actually like to use the flip-flop operator sometime. Anyone have any experience with it?

----------
- Jim