http://qs1969.pair.com?node_id=32784


in reply to shortest

At one character less, you could do:

chop($_=<>);for(split('',$_)){print$_.': '.($_%2?"Odd\n":"Even\n")}