sub re {
  my $i=0; /-(?{$i=$i+1})/ for @_; $i=~/0|2/;
}