$_=<>;$i=2+length;print$",($u='_'x$i),$/,'/',$"x$i,"\\
",($a=('|'.$"x$i."|
")x(1+/l/)),"| $_ |
$a\\$u/"