I was assigned a simple program to write in C++: Make a program that takes an integer and tells whether each digit is odd or even. So, I started messing around in Perl, rather than doing the assignment (naturally). This is the shortest solution I came up with. Any suggestions for improvement? (66 chars)
chop($_=<>);s/([13579])/$1: odd\n/g;s/([02468])/$1: even\n/g;print