my @arr = qw( and you will be pleased with the results );
#             0   0   1    0  1       0    1   1
my $mask = "\x2b";

my @new = do { my $i = 0; map { vec($mask, $#arr - $i++, 1) ? $_ : () } @arr };

foreach (@new) {
   printf("%s\n", $_);
}