perl -pi.orig -e 's/original/substitute/g' <filename>