>>777
にゃにゃにゃ

if ($host =~ m/$match_string_list/)) {
my $o = $&;
略
}else{
$o =~ s/$match_string_list/q{"} . $display_match_string . q{"}/gee;
print "このホストの規制表\記は『　" . $o . "　』になります。<br>\n";

こう？
さて期待通りに動くかな
テストしてきますｗ