c:\blah> dir
07/10/2008  08:45 PM    <DIR>          16
07/10/2008  08:45 PM    <DIR>          17
07/10/2008  08:24 PM    <DIR>          18
07/10/2008  08:45 PM    <DIR>          19
19/03/2009  09:44 AM    <DIR>          20- Foo bar bat
30/10/2008  10:25 AM    <DIR>          21 Baz bat qux
07/10/2008  08:45 PM    <DIR>          22- Shiver me timbers
...

##</code><code>##

c:\blah> perl -e "for (glob '*') { my ($id) = /
(\d+)$/ || /^(\d+)/; print \"$_ => id=$id\n\"; }"
##</code><code>##

16 ==1
17 ==1
18 ==1
19 ==1
20- Foo bar bat ==20
21 Baz bat qux ==21
22- Shiver me timbers ==22
23 ==1
...