Let me also add my own version

map {unless (/^$/) {y/Q-Z/0-9/; print chr hex;}} split /(\w{2})/, "UAX
+VXTXUSQWRWEWFXUWYWVXSSQXQWVXSWCSQWYWRWTWBWVXSSR";
[download]

;)
marcos