map  { ( my $s = $_ ) =~ s/(\d+)/
                         '0' . pack('N', length($1)) . $1
                      /eg;
                      [ $_, $s ] }
                    }