Select Code to Download

#!/usr/bin/perl -l

...
{ID#0000D129}-20060519_091438_00000ZURACF2955.zip
{ID#0000D12C}-20060519_092458_00000ZURACF2957.zip
{ID#0000D12D}-20060519_092911_00000ZURACF2956.zip

@file=map { substr $_, 7 }
  sort map sprintf("%06d", /(\d+)\.zip/) . $_, @file;