sub inc36 {
  my ($left, $right) = shift =~ /^(.*?)(z*)$/i;
  $left = "0" unless length $left;
  substr($left, -1) =~ tr/0-9a-yA-Y/1-9ab-zB-Z/;
  $right =~ tr/zZ/00/;
  $left . $right;
}
[download]

But I'm sure I typed this in before, either here or somewhere else.

-- Randal L. Schwartz, Perl hacker

---

update: minor typo (replacing range should be 1-9ab-zB-Z, not 1-ab-zB-Z, doh!) noted by jmcnamara and fixed, thanks!