【Perl 】初心者コーナーPart5

漢字のパターンマッチングをやりたいんですが、うまくいきません。
教えてくださ〜い。

if($moji ne ~/[亜-龠]/ )

これで、$mojiが、漢字じゃなかったら、って感じになると思うんですが、うまくマッチングしません。何故でしょうか？