２ch型掲示板 その２

何もしてないですよ>>284
見るべきは
$value =~ s/%([\dA-Fa-f]{2})/pack("C",hex($1))/ge;
の所くらい、他は普通の配列操作です
このルーチンを通すと
$FORM{$key}　にHTMLに$keyで指定した内容が入ります。
逆は
s/([^ \w])/sprintf "%%%02X", ord $1/eg;
こんな感じ