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