>>692,695
なんとな〜くだからうまくいかなかったらごめんね。


# ニックネーム(マッチ)

my $word = $FORM{'HANDLE'};
$word =~ s/\xA1\xA1/ /g;
my @word2 = split(/\s+/,$word);
my $myflag = 0;

if ($FORM{'HANDLE'} ne '') {
foreach my $word3 (@word2) {
if ($HANDLE =~ /^([\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE]{2})*$word3/i) { $myflag = 1; last; } else { ; }
}
}

if ($FORM{'HANDLE'} ne '' && $myflag == 0) { next; }

# 検索終了処理