$_="MO\x81B\x8dCAJ\xa3";
my $start = 0x80;
my %xlate = map { my $first = $_;
                  map {(chr($start++), "$first$_")} (0..9, '.')
                } (0..9,'.') ;
s/([\x80-\xec])/$xlate{$1}/g;
print;