Select Code to Download

my @arr = qw( and you will be pleased with the results );
my $mask = "\x2b";
my @new = do { my $i = 0; map { vec($mask, $#arr - $i++, 1) ? $_ : () 
+} @arr };