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