如何将汉字串中插入回车

如何将汉字串中插入回车
比如说我要在 我是中国人 中插入\n 变成 我\n是\n中\n国\n人
请教

已经搞定
use Encode;
use Encode::CN; #可写可不写
$dat="测试文本";
$str=decode("gb2312",$dat);
@chars=split //,$str;
foreach $char (@chars) {
print encode("gb2312",$char),"\n";
}