>>794
よかたー、ちなみにこんな感じで無理やり痴漢してみました。

$c = scalar( () = $display_match_string =~ /\$[0-9]/g );

if ($host =~ m/$match_string_list/) {
my @mendoi = ($1,$2,$3,$4,$5,$6,$7,$8,$9);　←めんどいので9個位入れちまえー

略

for($j = 1; $j <= $c; $j++) {
$tmp = q{\$} . $j;
$display_match_string =~s/$tmp/$mendoi[$j - 1]/ge;
}
print "このホストの規制表\記は『　<b>" . $display_match_string . "</b>　』になります。</p>\n";
}

やっぱり何度見ても頭悪い書き方ですななー、適当すぎですねぇｗ
酔っ払ったせいで皆さんにご迷惑をおかけしましたー、陳謝