#!/usr/local/bin/perl||while (<>) {  |chomp if $. % 24;  |print;|}|