Select Code to Download

#!/usr/local/bin/perl -l

print hole(uc $_) for @ARGV;
...
#2345678901234567890123456789012345678901234567
my$d;map$d=$d*36+(/\d/?$_:-55+ord),pop=~/./g;$d
}