[F:\]perl -e "print qq{[$_]\n} for ( sort { print 0+$a, $b, $/; $a <=> $b } qw(file2 file20z file22s file1q file10z file12f) )"
00
00
00
00
00
[file2]
[file20z]
[file22s]
[file1q]
[file10z]
[file12f]