Every line of your tree starts with a star! But I can knock the count down a bit:

$j--;print$"x--$h,($j+=2and$_-1?map rand>$f?"="
:qw(0 @ * +)[rand 4],1..$j:"*"),$/for 1..$h
[download]

That's an even 90. Oh, I'm using Perl 5.6, so I can write qw(...)[...] and get away with it.

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;