てか　perl使う必要ないじゃん。cat と sed でやれば。