#!perl -pl $s=$l=0;$x=5**y/VLD//.E.(42^88*ord)%5,$s-=$l<$x?$l*2:0,$s+=$l=$x for/./g;$_=$s
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page