perl -ne 'next if 0 == $. % 25; print' filename

##</code><code>##

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

my $remove_lines_modulo = 25;

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

##</code><code>##

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

my $remove_lines_modulo = shift @ARGV;
die "Cannot handle zero as an argument.\n" if 0 == $remove_lines_modulo;

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