s/./ $&/g,printf($a|=$_,$a=~y/*~./ |_/),s/ \./|_/g,s/_ |_$/_|/g,$a=$_ for<>,$_