$,=$/;$x=' 'x$_.'|',$X='_'x$_--,
print((" $x")x$_," $X|$X",("|$x")x$_,"|$X|$X",(" $x$x")x$_," $X|$X|",(" $x")x++$_,'')for<>