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

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

##</code><code>##

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; }