#!/usr/local/bin/perl --
use strict;
use warnings;

my $remove_lines_modulo = 25;

while ( <> ) {
    next if 0 == $. % $remove_lines_modulo;
    print;
}