Help for this page

Select Code to Download

Select or download this

my $i;
while (<DATA) {
...
64{#
Blah
Blah

Select or download this

perl -i -ne 'print if ($i++ % 2)' filename