I misunderstood kyle's "gets tossed" comment to mean "apple\n" will not be deleted if the regex is '^apple$'" - i.e., the deletion string will get tossed. From his comment and yours, it seems he meant it the other way - i.e., the content of "apple\n" "gets tossed" if the deletion string is "^apple$" - which is, of course, true. My mistake.


--
"Language shapes the way we think, and determines what we can think about."
-- B. L. Whorf

I think your code actually proves my point, not yours.

use Data::Dumper;

my @array=('water','wine','applepie','beer','orange juice',"apple\n");
my @dels=('apple','orange');
my $dels = join '|',
           map quotemeta,
           @dels;
@array = grep !/^($dels)$/, @array;

print Dumper \@array;
__END__
$VAR1 = [ 
          'water',
          'wine',
          'applepie',
          'beer',
          'orange juice'
        ];
[download]

It removes both "apple" and "apple\n"—even though "apple\n" was not one of the @dels. If you change the $ to \z in the regular expression, the "apple\n" comes through (and "apple" is still removed).