my $i;
while (<DATA) {
    print if ($i++ % 2);
}

__DATA__
435
435
f,sdlf,dsl
f,sdlf,dsl
64{#
64{#
Blah
Blah

##</code><code>##

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