>>408
とりあえず、perlじゃなくて、sedとかを使ってみるとか?