#!/usr/bin/perl -l use strict; use warnings; chomp(my @file=); @file=map +(split /:/)[1], sort map +(/(\d+)\.zip/)[0] . ":$_", @file; print for @file; __END__ {ID#0000D128}-20060519_090519_00000ZURACF2954.zip {ID#0000D129}-20060519_091438_00000ZURACF2955.zip {ID#0000D12C}-20060519_092458_00000ZURACF2957.zip {ID#0000D12D}-20060519_092911_00000ZURACF2956.zip