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