I can tie. print join(",\n",map{"Happy birthday ".(/2/?"dear perl5":"to you")}(0..3)),".\n" > -----Original Message----- > From: Richard Proctor [mailto:Richard@waveney.demon.co.uk] > Sent: Tuesday, October 19, 1999 12:47 PM > To: fwp@technofile.org > Subject: [FWP] perl5 is 5 > > > perl5 is 5. > > So in the spirit of JAPH: > > for(0..3){print"Happy birthday ".(/2/?"dear perl5":"to > you").(/3/?".":",")."\n"} > > Can anybody get it smaller... > > > -- > > Richard@waveney.demon.co.uk > > > ==== Want to unsubscribe from Fun With Perl? Well, if you insist... > ==== Send email to <fwp-request@technofile.org> with message _body_ > ==== unsubscribe > ********************************************************************** This e-mail is intended only for the addressee named above. As this e-mail may contain confidential or privileged information, if you are not the named addressee, you are not authorised to retain, read, copy or disseminate this message or any part of it. ************************************************************************ ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe