#!perl -p
1while s#.(\d+)(]B@)([.~]*)(\[?(\d+)((:.)|\2(?!.*:)))#$3.($7?'.':',')x$4=~y///c.'['.($1+$5).$2#e