%perl -nie 's/old/new/g' ./*/*