TTで文字列を先頭から何文字までだすという制限を加えるやつがあった。 [% string | truncate(20) %] あ、こんなんだった。 http://www.template-toolkit.org/docs/plain/Manual/Filters.html

Wide character in print って言われました。 use Encode; print encode('utf8',$str) ; で解決した。下記のサイトでお世話になりました。http://www.ksknet.net/perl/wide_character.html