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

##</code><code>##

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

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

>