Perlを使用して中国語文字を検出する方法は？

Question

可能性の重複：
Detect chinese character using perl?

Perlを使って漢字を検出する方法はありますか？

そして、中国語文字を記号ドット 'に分割する方法はありません。'完璧？

#!/usr/bin/perl 
use utf8; 

my $str = "a银行系统时间表"; 
$str =~ m/(\p{Han}+)/; 
print join('.', split(//, $1)); 

リターン

银.行.系.统.时.间.表 

PSのような

Answer 1

何か：私は/読むことができない中国の話すので、私は何を$ strの程度は考えていると言います。それは失礼なsozの場合^^