my $term = "foobar";
open(INF,"grep $term data.txt|") or die "couldn't open file: $!";
while (<INF>) {
    # do some stuff with $_
}
close INF;