And I can trim it to 88 (if we leave out the assignment):

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

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