#!perl -p eval's/\b$a[-$|--]\b/a$a[-$|]/;'x2while@a=sort{$a-$b}/\b\d+/g;s/a//g
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page