On Fri, 9 Feb 2001, Jeff Pinyan wrote: > > I present Sierpinski's triangle in 70 characters: > > $_=0;{print' 'x(40-.5*length),"$_\n";s/(?<=0_)./$&?0:_/eg;$_.=_0;redo} Now where did I put that one-liner.. ah, here it is: perl -e 'for(s//db\n/;print;s/..(?=d)/$&^DB/eg){s/^/ /}' | less Oh, and this one runs just fine even under perl 5.004_04. -- Ilmari Karonen http://www.sci.fi/~iltzu/ ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe