my @slurp = grep { ! /fubar/ } <FILE>;

##</code><code>##

my @slurp = grep { ! /fubar/ } <DATA>;

use Data::Dumper;
print Dumper \@slurp;

__DATA__
asdffubarasdf 1
as;ldja;slk;alskj 2
as;dlkfjfubarasdf 3
as;ldfkj;laksf;lkasj 4
asfd;aslfk 5
fubar 6