$h = 5;
$f = 0.3;
#        1         2         3         4         5         6
#23456789_123456789_123456789_123456789_123456789_123456789_123456789
print map{' 'x($h-$_),$_?map{$f>rand()?'=':(qw/0 @ * +/)[rand 4]}#65
0..2*$_:'*',"\n"}0..$h;#23
[download]

88, and perl 5.005_03 compliant :-)