perlでURLデコード

#!/usr/local/bin/perl

open (FH,"access.log");
open (FH2,">kekka.txt");
while(){
s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2',$1)/eg;
print FH2;
}
close FH;
close FH2;

s置換演算子のオプションeは置換後の文字列(ここではpack('H2',$1))の評価を行う。
gオプションは繰り返しマッチさせる。