find ... | xargs perl -nie 'do something'