How to detect Chinese character using Perl? [duplicate]

This question already h开发者_开发问答as an answer here: Closed 11 years ago.

Possible Duplicate:

Detect chinese character using perl?

Is there any way to detect Chinese character using Perl?

And is there any way on how to split Chinese character with symbol dot '.' perfectly?

---

something like

#!/usr/bin/perl
use utf8;

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

return

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

PS: I can't read/speak chinese so I have no idea about what $str says. If it's rude soz ^^