Perlのコーディングでこれを実現するようなテクニックがあるのではないかと思い
こちらに投稿したのですが、スレ違いだったでしょうか？