#!/usr/bin/perl
use Jcode;

sub convert_jp {
    my ($text, $code) = @_;
    $code =~ tr/a-z/A-Z/;
    if($code eq "ISO-2022-JP"){
	return Jcode->new($text)->jis;
    }elsif($code eq "SHIFT_JIS"){
	return Jcode->new($text)->sjis;
    }elsif($code eq "EUC-JP"){
	return Jcode->new($text)->euc;
    }
    return $text;
}

sub urldecode{
    my ($text, $code, $isurl) = @_;
    chomp($text);
    
    if ($isurl) {
	if ($text =~ m,^(.*)(<a href=\".+\">)(.+)(</a>.*)$,) {
	    my ($txt, $tag, $urltext, $endtag) = ($1, $2, $3, $4);
	    $urltext =~ s/%([0-9a-f][0-9a-f])/pack("C",hex($1))/egi;
	    $urltext = convert_jp($urltext, $code);
	    return join('', $txt, $tag, $urltext, $endtag, "\n");
	}
    } else {
	$text =~ s/%([0-9a-f][0-9a-f])/pack("C",hex($1))/egi;
	return convert_jp($text, $code)."\n";
    }
    return "$text\n";
}

$url = 0;
$word = 0;
$code = "";
while(<>){
    if(/<meta http-equiv="Content-Type" content="text\/html; charset=(.*)">/i){
	$code = $1;
    }
    
    $url = 1 if /<h2><a NAME="req">/;
    $url = 1 if /<h2><a NAME="ref">/;
    $word = 1 if /<h2><a NAME="search.">/;
    if(/<hr>/){
	$req = 0;
	$word = 0;
    }
    if($word == 1 or $url == 1){
	print urldecode($_, $code);
    }else{
	print;
    }
}