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