I got bored in the middle of a C project I was working on and began fiddling with Perl. I started working on a one-liner japh, but then I decided to turn it into a game and try to use as many functions as I can in one line ... and here's the final product (your count on the number of functions may vary based on your definition of a function):

exit unless eval 'do {print ucfirst scalar reverse qq|\n|,grep m/\w/,split "",join chr ((exp log abs int ord "P")+1),uc q/h/,sort map $_.lc "J",lcfirst "A" or die ":-("}';

Zenon Zabinski | zdog | zdog7@hotmail.com