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