perl ... | grep o