#!/usr/bin/perl
use warnings;
use strict;

open FH, "testit" or die $!;

my @lines = <FH>;

for (@lines) {
   print $_ if (!/fubar/) ;
}