You can do this with a "one-liner". Read about the run-time switches -i, -p, and -e in perlrun. Use the substitution that Tybalt provided.