#!/usr/bin/perl

use Jcode;

sub conv
{
  $k = shift;
  $k =~ s/\n$//;
  $k =~ /(.+) ([0-9]+)$/;
  my ($key, $num) = ($1, $2);

  $key =~ s/\\x([0-9A-Fa-f][0-9A-Fa-f])/pack('H2', $1)/eg;
  $key =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2', $1)/eg;
  $key = jcode($key)->utf8;

  $key =~ s/(\W)/'%'.unpack('H2', $1)/eg;

  return "$key $num\n";
}

while (<STDIN>) {
  print;
  last if /^BEGIN_SEARCHWORDS/;
}

while (<STDIN>) {
  if (/^END_SEARCHWORDS/) {
    print;
    last;
  }
  print conv($_);
}

while (<STDIN>) {
  print;
  last if /^BEGIN_KEYWORDS/;
}

while (<STDIN>) {
  if (/^END_KEYWORDS/) {
    print;
    last;
  }
  print conv($_);
}

while (<STDIN>) {
  print;
}