$charactorにひらがな（あーん）以外が含まれているかどうか判断したいのですが

if ( $charactor =~/[^あ_ん]/) {
print "あーんを以外含んでいます。\n";
}
というふうにしてみたのですが
上手くいきません
自分では見当がつかないのでアドバイスをください