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