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