#!perl -0n /\d/,print+($x="@{[('+'.'-'x(y/-///2/$').'+')x$']} ",$x=~y/+-/| /rx(y/|///2/$&),$x)x$&for/.*? \d+/gs
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page