my @buf;
while (<>) {
   push @buf, $_;
   if (@buf == 16) {
      do_it(\@buf);
      @buf = ();
   }
}

if (@buf) {
   do_it(\@buf);
}
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Wonderful Web Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.