Larry Rubinow <Larry.Rubinow@westgroup.com> wrote: > Here's a different approach: > > print+("\nHappy birthday ","to you,","dear perl5,","\b.")[0,1,0,1,0,2,0,1,3] This lends itself to squeezing out 3 more characters, for 73: print+("dear perl5,","\nHappy birthday ","to you,","\b.")[1,2,1,2,1,0..3] -- Steven Alexander stevena@teleport.com <http://www.teleport.com/~stevena/> perl -le 'print map chr($_?64+((0<=>$_)+(-1+$_**2)**2)%17:()),-2..2' ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe