Help for this page
Select Code to Download
Select
or
download this
$a=1; my @result = grep { $a = not $a }, @input;