Re^5: Hmmm: while(), file handle and $_ gotcha

[ikegami]

Since we want to print the first 5 lines of each group of 10,

while (<DATA>) {
   print if ($. - 1) % 10 < 5;
}