my $x = qr(klops);
my @a = qw(apfel klops klops börne joghurt klops nüß)
my @e;
@a = grep { $_ !~  $x or not push @e,  $_ } @a;