#!/usr/bin/perl
use strict;
use warnings;

my $dir = "D:\\scripts\\";
my (@sorted_list, @file_list);

if ( opendir(DIR, "$dir") ) {
	foreach my $file( readdir(DIR) ) {
		next if ( $file =~ /^\./ );
		if ($file =~ /xml$/) {
			foreach ($file) {
				push (@file_list, $_);
			}
		}
	}
	@sorted_list = map {$_->[0]} sort { $b->[1] <=> $a->[1] } map  { [$_,(split/\D/)[15..21]] } @file_list;
	foreach (@sorted_list) {
		print "$_\n";
	}
}
closedir (DIR);