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

##</code><code>##

echo 'fubar\nfoo' | perl -e '@stuff=grep \!/fubar/, <STDIN>;print@stuff;'

##</code><code>##

foo

##</code><code>##

$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)-.*)$/;$_=&#91"ps -e -o pid | "," $2 | "," -v "," "&#93;`@$_`?{print"+ $1"}:{print"- $1"}&&`rm $1`;print"\n";}