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