>>324
コピペするときに間違えました。
>>325
ありがとうございます！

if ( $charactor =~/[^\x82\x9F-\xF1]/) {
print "あーん以外を含んでいます。\n";
}
これで出来るようになりました。