Help for this page
my @files = qw{ Date12_type.asp Date1_type.asp Date7_type.asp Date4_ty +pe.asp }; ... map { [(/([^\d]+)(\d+)(.*)/)] } @files; $,="\n"; print @sorted_files;
Date1_type.asp Date4_type.asp Date7_type.asp Date12_type.asp