組み込み substr だと、多バイト文字のまんなかでブッた切ってしまう場合がある
ので Jcode モジュールの jfold メソッドを使う
$string = "あいうえおかきくけこ";
@str = Jcode->new($string)->jfold(5);
漢字コードの違いについては、Jcode の方で判別してくれる。
@str は
("あい", "うえ", "おか", "きく", "けこ")
スカラーコンテキストの場合は、区切り文字を第2引数に指定可
$string = Jcode->new($string)->jfold(5, "\n");
$string は "あい\nうえ\nおか\nきく\nけこ"