#!/usr/bin/perl
use Jcode;

sub urldecode{
	my($url,$code) = @_;

	$url =~ s/%([0-9a-f][0-9a-f])/pack("C",hex($1))/egi;
	$code =~ tr/a-z/A-Z/;
	if($code eq "ISO-2022-JP"){
		Jcode->new($url)->jis;
	}elsif($code eq "SHIFT_JIS"){
		Jcode->new($url)->sjis;
	}elsif($code eq "EUC-JP"){
		Jcode->new($url)->euc;
	}
}

$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){
		print urldecode($_, $code);
	}elsif($url == 1){
		if(/^([^\?]*)\?(.*)$/){
			$f = $1;
			$s = urldecode($2, $code);
			print "$f?$s\n";
		}else{
			print urldecode($_, $code);
		}
	}else{
		print;
	}
}