$_=<>; $L=length; sub w{substr$_,$_[0],$i,' 'x$i} for$i((0)x3,1..-3+.5*$L){ w 2;w-3-$i; $j++&&s/^.|.$/ /g; push@a,$_} print@a; $L%2||pop@a; print reverse@a
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page