$a=<>;push@_," "x$a for 1..$a;\x0d $_[$_]=~s/(.{$_})./$1X/,\x0d $_[$_]=~s/.(.{$_})$/X$1/ for 0..$a;\x0d s/ *$//,print"$_\n"for@_
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page