http://www.perlmonks.org?node_id=32821


in reply to shortest

chop($_=<>);$a=chop()=>print qq'\n$a: ',$a&1?'odd':'even' while $_;
The code that was previously here has been replaced. It didn't work.