while (<>) { say if $. % 16 == 0; } [download]
$., %
In reply to Re: How to read every 16 line of file ? by ikegami in thread How to read every 16 line of file ? by bh_perl