find . -print0 | perl -0pe "s/\0/foo\n/"