>>317
>>318
318さんの方法を使う事にしました。ありがとうございました。

あと、スレ違いになってしまいますが 318さんのコードの中の
「shorten」は Perl 標準関数でしょうか？
ぐぐってみたのですが、正体が分かりませんでした。