grep {/FOO/} $_ && print;