#!perl -w
use strict;
my @ddig;
my @spaces;
$ddig[$_ + 128] = sprintf "%02d", $_ for 0 .. 99;
$spaces[$_] = " " x $_ for 0 .. 255;


while (<DATA>) {
  s/([\x80-\xe3])/$ddig[ord($1)]/g;
  s/\xff(.)/$spaces[ord($1)]/eg;
  print;
}
__DATA__
MO�B�CAJ�
This is a�test
123456789012345678901234567890