map{@a=$"=', ';@a=/<|>/?@a[/</..$#a-/>/]:/v/?map{$_-1,$_+1}@a:eval join$_&v1^'+',@a,y#/##for/./g;print"[@a] "}<>
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page