.
@files = sort { ($a =~/dump_( d+).bin/)[0] ($b =~/dump_( d+).bin/)[0] } @files;
# ( (*,.,*)/ ) превед.
контекстная реклама в интернет.