/foo/

##</code><code>##

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