#! c:\perl\bin
use strict;
use warnings;

open (FH, "somefile.txt") or die("cannot open file");
foreach (<FH>) {
print if ($_=~/foo/);
}