$hensu = substr(@wk_list[0],0,30);

半角、全角が混ざっている文字列（@wk_list[0]）の中からsubstr関数
を使って先頭から３０文字を抜き出した場合、３０文字目が全角文字の
半分にかかると、文字化けをしてしまいます。良い方法はないでしょうか？