$ perl -e 'sub k{for(@p=$_[0]=~/\d+|[a-z]+/gi){if(/^\d/){s/^0+//;$l=le
+ngth;$_="9"x($l/9).$l%9 .$_}}lc join"\0",@p}@s=sort{k($a)cmp k$b}@ARG
+V;print"@s\n"' 1 A amstelveen Amsterdam Amsterdam5 Amsterdam40 Amster
+damned

1 A amstelveen Amsterdam Amsterdam5 Amsterdam40 Amsterdamned
[download]

and numbers are not limited to any range.