sub encode {
  my ($text)=@_;
  $text=~s/\x0a/\\n/g;
  $text=~s{([\xc0-\xc3])(.)}{
    my $hi = ord($1);
    my $lo = ord($2);
    chr((($hi & 0x03) <<6) | ($lo & 0x3F))
   }ge;

  return $text;
}