Help for this page

Select Code to Download

Select or download this
```
my $t = 1;
grep { $t^=1 } LIST
```

Select or download this

use 5.010;

say grep { state $t = 1; $t ^= 1} <a b c d>;

# prints: bd