chomp,s/./ $&/g,$b=$_,$_|=$a,$a=~y/./|/,$_|=$".$a|substr($a,1),$a=$b,y/./_/,print$_,$/for<>,$c