#!/usr/bin/perl -l
$_ = '8MLDQ6TUI6TFMLRHAANRA6Q8EFLDMQ86II2O32S5J13JXOJ';
# decode
tr/0-9A-Z/4-9A-E2F-L0M-P1Q-S3T-Z/;
print;
# encode
tr/4-9A-E2F-L0M-P1Q-S3T-Z/0-9A-Z/;
print;