Perl: in place editing

Without backup: perl -pi -e 's!REGEXP!REPLACEMENT!' file

With backup: perl -pi.bak -e 's!REGEXP!REPLACEMENT!' file

Recursivly

for f in $(grep -R --include=*.cpp REGEXP); do perl -pi -e 's!REGEXP!REPLACEMENT!' $f; done

Synchronizing all $VERSION assignments in a Perl package to 0.03:

find . -type f -name '*.pm' -exec perl -pi -e 's!our \$VERSION *=.*!our \$VERSION = 0.03;!' {} +