in reply to How to Print Every Other Line

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

[download]

In Section Seekers of Perl Wisdom