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