map{s/$s?/$"x5&$&/e,s/./$$a[12-pos].=$&/gesfor@{$a++}}($s,@1)=<>;print@13
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page