perl 中文切词解决方法

perl 中文切词
想把一段中文切成词，双字切词法。如：中华人民共和国--->
切成：
中，华
华，人
人，们
共，和
和，国

用perl，怎么实现？？split吗？
求教！

------解决方案--------------------
split 之后在join
------解决方案--------------------
sub split_word
{
my ($str,$i);
$str = "中华人民共和国";
while($i<=length($str)-4)
{
print substr($str,$i,2).",".substr($str,$i+2,2)."\n";
$i+=2;
}
}
------解决方案--------------------
你这个要是里面有个数字或英文字母，就死翘翘了

探讨

sub split_word
{
my ($str,$i);
$str = "中华人民共和国";
while($i<=length($str)-4)
{
print substr($str,$i,2).",".substr($str,$i+2,2)."\n";
$i+=2;
}
}