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

my (@lines) = grep !/fubar/, @slurp;

foreach my $foo (@lines) { print $foo; }