my $NotASCII = '[\x80-\xff]';


##</code><code>##

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