map  { my $s = $_;
                      $s =~ s/(?<![\[\d])(\d+)/
                         sprintf('%010d%s', length($1), $1)
                      /eg;
                      $s =~ s/(?<=\[)(\d+)/
                         sprintf('%010d%s', length($1), 4294967296-$1)
                      /eg;
                      [ $_, $s ] }
                    }