--$|||s/^/ /mg,s#.*$#/@{[qw(_/ _\\)[$|]x(++$/2)]}_\\
$&#for($_=' \\ /
-->*<--
 /_\\
[___]')x<>;s/ -/-/;print