>>192
初めて知った機能だよ。

use encoding qw(euc-jp);
my $str = "漢字";
$str =~ /\p{Han}/ and print "true";

一応こんなでも通るけど。