find /path/to/dir -name '*.pm' | xargs perl -i.bak -n -e 's/original/new/; print;'