while (<>) {
print if grep {/FOO/} $_;
}