s/[79]\B/~-$&."0 1"/e,s/8\B/4 2/,s/(??{$'<17}).\B\K(?!0)/0 /,print$_,$/for 1..100
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page