Select Code to Download

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

perl -e "while (<*>){print $_.\"\n\";}"