perl -mr -ne 'print if /foo/' *

##</code><code>##

grep -r foo *

##</code><code>##

------------
:Wq
Not an editor command: Wq