map { ( my $s = $_ ) =~ s/(\d+)/ sprintf('%010d%s', length($1), 4294967296-$1) /eg; [ $_, $s ] } } [download]
In reply to Re^6: Sort problems by ikegami in thread Sort problems by erez_ez