Very cool... but i made two tweaks, one is a
simplified version of
Rudif's default suggestion,
and the other
changes the text to something more triangle-ish (i don't
think it significantly reduces the obfuscation)
$}=1|1<<(pop||3);print($"x$},(map$_?'/\\':$"x2,
@;),$/),@;=(1,map$;[$_]^$;[-$_],1..@;)while$}--