if ($hoge =~ /[^ -~]/) {
 # 日本語入ってる
}