#!/usr/bin/perl -w

use strict;

my($line) = "";
my($counter) = 0;

# print every nth line of STDIN, where n is defined as:
my($countTo) = 56;

while ($line = <STDIN>)
{
  $counter += 1;
  if($counter == $countTo)
  {
    print $line;
    $counter = 0;
  }
}