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

##</code><code>##

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

##</code><code>##

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