On Tue, 19 Oct 1999 17:46:52 +0100 (BST), you wrote: > 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... 2 characters shorter: print"Happy birthday ".(?2??"dear perl5":"to you").(?3??".":",")."\n" for 0..3 Or for something completely different: print$h='Happy birthday',$t=' to you',",\n$h$t,\n$h dear perl5,\n$h$t.\n"; That's another 4 characters shorters, so saved 6 in total. -- Marcel, Perl Padawan sub AUTOLOAD{$_=$AUTOLOAD;s;.*::;;;y;_; ;;print}&Just_Another_Perl_Hacker; ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe