my %_table = ();

    sub load_map
    {
      open( UTF8, "<:encoding(utf8)", 'tab.bin' ) || die "can't open tab.bin : $!";

      while( <UTF8> ) {
        chomp;
        my $offset = index($_,' ');
        my $bin    = substr($_,$offset+1);
        my $esc    = substr($_,0,$offset);
        $_table{$bin} = $esc;
      }
      close( UTF8 );
    }