http://qs1969.pair.com?node_id=904578


in reply to How to read every 16 line of file ?

while (<>) {
   say if $. % 16 == 0;
}

[download]

$., %

In Section Seekers of Perl Wisdom