#!perl s/./$& $&/gfor($_="- ")x pop;print |
Please shoot me.
#!perl s/./$& $&/gfor($_="-$/")x pop;print |
#!perl -l s/./$& $&/gfor($_='-')x pop;print |
#!perl -l
s//-/;for$i(1..pop){s/./$& $&/g}print
|
#!perl -l map$o.=' 'x length($o).$o||'-',0..pop;print$o |