$t = int rand(14) + 6;
$t = $t % 2 ? $t + 1 : $t;

for $l (1..$t) {
    print ' ' x ((int(($t + 1) / 2 )) + 1) . "*\n" if $l == 1;

    print ' ' x (int(($t + 1) / 2 )) .  '/'
        .  (int rand(2) ? "#" : '&') . "\\\n"
        if $l == 2
    ;

    print ' ' x ((($t + 1) - ($l + ($l % 2 ? 0 : 1))) / 2) . '/'
        . (int rand(2) ? "#" : '&') x ($l + ($l % 2 ? 0 : 1))
        . "\\\n"
        if $l >= 3
    ;
}

print '^' x ($t + 3) . "\n";
print ' ' x ($t / 2) . '|H|' . "\n";