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