Select Code to Download

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

#!/usr/local/bin/perl --
use strict;
use warnings;
...
    next if 0 == $. % $remove_lines_modulo;
    print;
}

#!/usr/local/bin/perl --
use strict;
...
    next if 0 == $. % $remove_lines_modulo;
    print;
}