#!/usr/bin/perl -w

open (FILE, "/tmp/test.txt");

while ($line = <FILE>) {
... READ EVERY 16 LINE...
}

close(FILE);