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