perlを使った方法はないでしょうか?