Select Code to Download

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

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