Please accept the ugliest possible solution: $a="to you.";$c="dear Perl5,";map{print"Happy birthday $$_\n"}(a,a,c,a); I challenge anyone to come up with worse code in 72 characters. :) -e At 01:48 PM 10/19/99 , you wrote: > >Sorry but I couldn't help myself:-) Not that it's very nice but... > >$a="Happy birthday";print "$a to you,\n"x2,"$a dear perl5,\n$a to you.\n"; > >is actually 6 chars shorter :-) >Cheers, >/Jan-Erik Schuch >jsc@avanza.com > >Avanza Securities >http://www.avanza.com >http://www.insidefinans.se > >Phone: +46 8 566 183 20 Mailing Adress: Visiting Address: >Cell: +46 707 68 08 50 P.O Box 1399 Kungsgatan 28 >Fax: +46 8 566 183 01 S-111 93 Stockholm Stockholm, Sweden > -- Q: How does a quantum logic chicken cross the road? A. The chicken is distributed probabilistically on all sides of the road until you observe it on the side of your choice. *------------------------------------------------------* * eric von zee *------* tritech marketing inc. * * web developer *------* evonzee@tritechnet.com * * www.tritechnet.com *------* 630.654.0170 x 129 * *------------------------------------------------------* ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe