@b="-"x20;$l=20;for$c(split//,'*?@.#`%$\\:[{\'"'){@b=map{$c.$_.$c}($c x$l,@b,$c x$l);$l+=2}$,=$/;print@b