while("x4_23\nx3/x22/|\nx2/x22/x|\nx1/x22/1|1\nx/_22/1|2\n|x1_18x1|1x|2\n|x|1x|2x13|x|1x|2\n|x|1x|1/x13|x|1x|1/\n|x|1x17|x|1\n|x|1x17|x|1\n|_|/x17|_|/"=~/\D/sg){$_.=$& x($'+1)};s/x/ /g;print
Note that non-ascii characters in the above source code will be escaped (such as \x9f).