sysopen (FILE,$filename,O_RDONLY) or die "Error! $!\n";
my (@slurp) = <FILE>;
close FILE;

foreach my $foo (@slurp) { unless ($foo =~ /fubar/i) {print $foo; } }