原です。

> sub unquote {
>     local ($_) = shift;
>     s/%([0-9a-fA-F][0-9a-fA-F])/ {
> 	pack("H2", $1);
>     }
>     /ge;
>     $_;
> }
> 
> こう書けばそれほど見にくくないよん.

うーむ、なんというべきか。

殺人現場にこのコードが落ちていたら、犯人はわたなべさんと
断定していいような、っていうのかな。:-)