Help for this page
find /path/to/dir -name '*.pm' | xargs perl -i.bak -n -e 's/original/n +ew/; print;'