s/./$& $&/gfor($_="-
")x pop;print