foreach (@in) {s|(\d+)|sprintf '%10.10d', $1|eg};
@in = sort  @in;
foreach (@in) {s|(\d+)|sprintf '%d',      $1|eg};