Select Code to Download

{
  my @to_b36 = (0 .. 9, 'A' .. 'Z');
  my %to_num;
...

  sub inc_b36 { num_to_b36(&b36_to_num + 1) }
}

{
  # in the same block as the previous code

...
    return $n;
  }
}

{
  # ditto

...
    return scalar reverse $n;
  }
}

sub GOLF {
local$_=pop;@_{@_=(
0..9,A..Z)}=0..35;s
...
$1}+1].$-x length$2
/e?$_:1 .$-x y!!!c
}