# [Perl 6], <s>34 32</s> 30 bytes

*Thanks to nwellnhof for -2 bytes through the use of the `o` operator to combine functions*

<!-- language-all: lang-perl6 -->

    {S/.//}o{base :36(1~$_)+1: 36}

[Try it online!][TIO-jk9jhpvp]

[Perl 6]: https://github.com/nxadm/rakudo-pkg
[TIO-jk9jhpvp]: https://tio.run/##XY1NC4JAEIbv@yuGRUrR0s0yUpSkzIvgoehgRBgoCFbS2iHE/rqtmn3NZebZZ96dLLqmWnW6Qy82q2ItD2W5vBTHkEagqxpPHtxBEIkOqlbWW/M8ojkFE9LkHFHLGtIsTXK@DwML@gJjZ2t7BkI3lt@wVTZmaXgGsQ0yjC/X7pcCASQUYp477JS9IAHrZC8BbhhMq33ABiorrLwL18c@TDD6wOxP2t8y@JVEYZKM1PFEC1i1suFpc6ZOLvyl4/reqku@2MVP "Perl 6 – Try It Online"


Function that converts the argument to base 36, adds 1, converts back and then formats it. Now uses the same tactic as [Adnan's answer](https://codegolf.stackexchange.com/a/169450/76162) to preserve the leading zeroes.