#!perl -p s/0(.{9}|)\K-|-(?=(?1)0)/1/?redo:y/Aa0-z/9Zz0-y/for($_)x62
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page