use utf8;
print 'Hiragana or Katakana detected!', $/
    if /[\p{InHiragana}\p{InKatakana}]/;