map [ m|/dir-(\d+)-(\d+)$|, $_], @ARGV #### perl -le'print( (sort {$b->[0] <=> $a->[0] || $b->[1] <=> $a->[1] } map [ m|/dir-(\d+)-(\d+)$|, $_], @ARGV)[1]->[2])' ./dir-*