#!perl -p 1while s#.(\d+)(]B@)([.~]*)(\[?(\d+)((:.)|\2(?!.*:)))#$3.($7?'.':',')x$4=~y///c.'['.($1+$5).$2#e
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page