>>859
PerlはPHPのようなローカルエンコーディング対応正規表現はないから、
昔のJPerlを引っ張り出してくるか、そうじゃなければutf8でやるしかないよ。

↓こんな感じ。

use encoding 'euc-jp', STDOUT => 'shift-jis';
use Encode;

$j = "ここが漢字です。abcここカタカナ。";
if ( $j =~ m/([\x{4e00}-\x{9fff}]+)/ ){
print "漢字 [$1]\n";
}else{
print "NOT 漢字\n";
}
if ( $j =~ m/([ぁ-ん]+)/ ){
print "ひらがな [$1]\n";
}else{
print "NOT ひらがな \n";