@b="-"x20;$l=20;for$c(split//,'*?@.#`%$\\:[{\'"'){@b=map{$c.$_.$c}($c x$l,@b,$c x$l);$l+=2}$,=$/;print@b
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page