open my $in_file, '<', 'some_file.txt' or die "$!\n";

while (my $line = <$in_file>) {
    chomp($line);  # If necessary
    print if $line =~ /foo/; # Or some other conditional
}