Select Code to Download

print $_ if $_ % 2 while <INPUT>; # not legal in Perl, but in pseudo-B
+ASIC-PLUS

$_ % 2 and print $_ while <INPUT>;

while (<INPUT>) { print $_ if $_ % 2 }