> > ﾘﾀﾞｲﾚｸﾄ.cgiのソースｷﾎﾞﾝ(´Д`)
> 手持ちのから最小部分をコピーしたよーヽ(´ー｀)ノ
> $u = $ENV{"QUERY_STRING"};
> $u =~ s/%([a-zA-Z0-9][a-zA-Z0-9])/pack("C", hex($1)/ego;

俺のコピーの間違い具合は異常(;´Д`)

$u =~ s/%([a-zA-Z0-9][a-zA-Z0-9])/pack("C", hex($1))/ego;

参考：2000/08/30(水)19時15分44秒