Select Code to Download

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

>perl -MO=Deparse -e "for (glob '*') { my ($id) = /(\d+)$/ || /^(\d+)/
+; print qq($_ => id=$id\n); }"
use File::Glob ();
...
-e syntax OK

>