#!perl -pl $_="``$_+x";0while$t='(`(?1){2}|.)',s/`i|``k$t$t/$1/||s/`s$t$t$t/$1$3`$2$3/;$_=y;+;
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page