Help for this page

Select Code to Download


  1. or download this
    my $t = 1;
    grep { $t^=1 } LIST
    
  2. or download this
    use 5.010;
    
    say grep { state $t = 1; $t ^= 1} <a b c d>;
    
    # prints: bd