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