Select Code to Download

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

#1 (at 97 characters)
sub f{
...
+split//,'0@*+'.'='x(4/$f-4);
print$"x--$h,$_>1?map$_[rand@_],1..2*$_-1:'*',$/for 1..$h
}