you might also want to look at perlrun for the -i -- inplace edit option. if that doesn't suit your needs, rob_au provided some good working code.

~Particle *accelerates*