#!/usr/bin/perl
# a simple filter for a TeX generated by OpenOffice.org
# by wkpark, modified by Karnes
# Public Domain
#
sub toutf8($) {
  my $c = shift(@_);
  return sprintf("%c%c%c",
                 0xe0 |  ($c >> 12),
                 0x80 | (($c >>  6) & 0x3f),
                 0x80 | ( $c        & 0x3f));
}

while (<>) {
  s/\[([0-9a-fA-F]{4})\?\]/toutf8(hex "$1")/ieg;
  print;
}